blob: 0aade87f26538622a03c6d6de69667e9411d3858 (
plain)
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
|
{ %FAIL }
{$MODE delphi}
type
TProc = procedure of object;
TMyClass = class
i: Integer;
procedure Test;
procedure Doit;
end;
procedure TMyClass.Test;
begin
WriteLn('i = ', i);
end;
procedure TMyClass.Doit;
var
p: TProc = @Test;
begin
i := 12345;
p;
end;
var
o: TMyClass;
begin
o := TMyClass.Create;
o.Doit;
end.
|
