1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
|
{%region FooFunc}
{$IFDEF FooFunc_Param}
//procedure FooFunc(
ArgEnum: TEnum; var VArgEnum: TEnum;
ArgEnumSet: TEnumSet; var VArgEnumSet: TEnumSet;
ArgSet: TSet; var VArgSet: TSet;
{$ENDIF}
{$IFDEF FooFunc_LocalVar}
//var
VarEnumA: (e1,e2,e3);
VarEnumSetA: set of TEnum;
VarSetA: set of (s1,s2,s3);
{$ENDIF}
{$IFDEF FooFunc_Body}
//begin
VarEnumA := e3;
VarEnumSetA := [Three];
VarSetA := [s2];
{$ENDIF}
{%endregion FooFunc}
{%region GLOBAL}
{$IFDEF Global_Type}
//type
TEnum = (One, Two, Three, Four, Five, Six);
TEnumSet = set of TEnum;
TSet = Set of (Alpha, Beta, Gamma);
{$ENDIF}
{$IFDEF Global_Var}
//var
GlobEnum: TEnum;
GlobEnumSet: TEnumSet;
GlobSet: TSet;
GlobSubEnum: Two..Four;
GlobSubRange1: 9..77;
GlobSubRange2: -9..-7;
{$ENDIF}
{$IFDEF Global_Body}
//begin
GlobEnum := Two;
GlobEnumSet := [Two, Three];
GlobSet := [Alpha, Beta];
GlobSubEnum := Two;
GlobSubRange1 := 55;
GlobSubRange2 := -8;
{$ENDIF}
{$IFDEF Global_Body_NIL}
//begin
GlobEnum := One;
GlobEnumSet := [];
GlobSet := [];
{$ENDIF}
{$IFDEF Global_Call_FooFunc}
//FooFunc(
GlobEnum, GlobEnum,
GlobEnumSet, GlobEnumSet,
GlobSet, GlobSet,
{$ENDIF}
{%endregion GLOBAL}
|
