mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-02 12:52:44 +02:00
47 lines
830 B
PHP
47 lines
830 B
PHP
|
|
{%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}
|
|
|