mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-11 20:51:17 +02:00
39 lines
470 B
ObjectPascal
39 lines
470 B
ObjectPascal
{$mode delphi}
|
|
type
|
|
tmyclass = class
|
|
procedure m1;virtual;
|
|
procedure m2;virtual;
|
|
end;
|
|
|
|
tm1 = procedure of object;
|
|
|
|
var
|
|
res : longint;
|
|
|
|
procedure tmyclass.m1;
|
|
begin
|
|
res:=1;
|
|
end;
|
|
|
|
procedure p2(m1 : tm1);
|
|
begin
|
|
m1;
|
|
end;
|
|
|
|
procedure tmyclass.m2;
|
|
begin
|
|
p2(m1);
|
|
end;
|
|
|
|
var
|
|
myclass : tmyclass;
|
|
begin
|
|
res:=longint($deadbeef);
|
|
myclass:=tmyclass.create;
|
|
myclass.m2;
|
|
myclass.free;
|
|
if res<>1 then
|
|
halt(1);
|
|
writeln('ok');
|
|
end.
|