fpcsrc/tests/webtbs/tw10998.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

program statictest;

{$mode delphi}

type
  TMyClass = class
  public
    class procedure StaticCall; static;
  end;

class procedure TMyClass.StaticCall;
begin
  WriteLn('Static method was called!');
end;

begin
  TMyClass.StaticCall;
end.