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
|
program tstatic1;
{$APPTYPE console}
{$ifdef fpc}
{$mode delphi}{$H+}
{$endif}
type
TSomeClass = class
private
class var
FSomethingStatic: Integer;
public
class procedure SomeClassMethod(A: Integer);
class procedure SomeStaticMethod(A: Integer); inline; static;
end;
{ TSomeClass }
class procedure TSomeClass.SomeClassMethod(A: Integer);
begin
WriteLn('TSomeClass.SomeClassMethod: ', A);
end;
// for now fpc requires 'static' modifiers also in the class implementation
class procedure TSomeClass.SomeStaticMethod(A: Integer);
begin
WriteLn('TSomeClass.SomeStaticMethod: ', A);
WriteLn('TSomeClass.FSomethingStatic: ', FSomethingStatic);
SomeClassMethod(A + 1);
end;
begin
TSomeClass.FSomethingStatic := 4;
TSomeClass.SomeStaticMethod(1);
end.
|
