blob: 49d2d715cb060442e3825706b3360f55cdd47d3a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
{ %fail }
program statictest;
{$mode delphi}
type
TMyClass = class
public
class procedure StaticCall; static;
end;
class procedure TMyClass.StaticCall;
begin
WriteLn('Static method was called!');
writeln(ptruint(self));
end;
begin
TMyClass.StaticCall;
end.
|
