blob: db9c76ea04b37ae78df0393f31728b1409f359e8 (
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
30
31
32
33
|
{$mode delphi}
type
TOnProc = procedure of object;
PMyObj = ^TMyObj;
TMyObj = object
private
FOnProc: TOnProc;
s: ansistring;
public
property OnProc: TOnProc read FOnProc write FOnProc;
procedure Proc;
end;
procedure TMyObj.Proc;
begin
end;
var
obj: PMyObj;
begin
New(obj);
obj^.OnProc:=obj^.Proc;
if TMethod(obj^.OnProc).Data <> obj then begin
writeln('Test FAILED!');
Halt(1);
end;
writeln('Test OK!');
end.
|
