[SOLVED] Static variable in the function

[julkas]

How implement C like static variable in the function in FPC 3.0.4. ?

[Cyrax]

Code: Pascal  [Select][+][-]

1. procedure Static;
2. const
3.   StaticVariable : Integer = 0;
4. begin
5. end;

[Thaddy]

Maybe to be sure:

Code: Pascal  [Select][+][-]

1. procedure Static;
2. {$push} {$J+}
3. const
4.   StaticVariable : Integer = 0;
5. {$pop}
6. begin
7. end;

[julkas]

Thanks all. Working.