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
|
{%region FooFunc}
{$IFDEF FooFunc_Param}
//procedure FooFunc(
ArgVariantInt: Variant; var VArgVariantInt: Variant;
ArgVariantString: Variant; var VArgVariantString: Variant;
{$ENDIF}
{$IFDEF FooFunc_LocalVar}
//var
{$ENDIF}
{$IFDEF FooFunc_Body}
//begin
{$ENDIF}
{%endregion FooFunc}
{%region GLOBAL}
{$IFDEF Global_Type}
//type
{$ENDIF}
{$IFDEF Global_Var}
//var
GlobVariantInt, GlobVariantString: Variant;
{$ENDIF}
{$IFDEF Global_Body}
//begin
GlobVariantInt := 5;
GlobVariantString := 'v';
{$ENDIF}
{$IFDEF Global_Body_NIL}
//begin
GlobVariantInt := 0;
GlobVariantString := '';
{$ENDIF}
{$IFDEF Global_Call_FooFunc}
//FooFunc(
GlobVariantInt, GlobVariantInt,
GlobVariantString, GlobVariantString,
{$ENDIF}
{%endregion GLOBAL}
|
