mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 14:07:57 +02:00
34 lines
465 B
ObjectPascal
34 lines
465 B
ObjectPascal
|
|
{$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.
|