mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-12 03:08:20 +02:00
29 lines
328 B
ObjectPascal
29 lines
328 B
ObjectPascal
{$ifdef fpc}{$mode delphi}{$endif}
|
|
|
|
type
|
|
tcl = class
|
|
function f1 : tvarrec; virtual;
|
|
end;
|
|
|
|
var
|
|
f : function : tvarrec of object;
|
|
|
|
function tcl.f1 : tvarrec;
|
|
begin
|
|
fillchar(result,sizeof(result),0);
|
|
end;
|
|
|
|
|
|
procedure p1(v : tvarrec);
|
|
begin
|
|
end;
|
|
|
|
|
|
var
|
|
c : tcl;
|
|
begin
|
|
c:=tcl.create;
|
|
f:=c.f1;
|
|
p1(f);
|
|
end.
|