对此,您不需要泛型。 reference to X与X、X of object和reference to X兼容(其中X是一个过程类型,如procedure(X: Integer))。 例如,
program Project1;
{$APPTYPE CONSOLE}
uses
System.SysUtils;
type
TTestProc = procedure(X: Integer);
TTestMeth = procedure(X: Integer) of object;
TTestRef = reference to procedure(X: Integer);
// Ordinary procedure
procedure TestProc(X: Integer);
begin
end;
// Method
type
TMyClass = class
class procedure TestMeth(X: Integer);
end;
class procedure TMyClass.TestMeth(X: Integer);
begin
end;
begin
var A: TTestRef;
A := TestProc;
A := TMyClass.TestMeth;
A := procedure(X: Integer) begin end;
end.
1条答案
按热度按时间k4emjkb11#
对此,您不需要泛型。
reference to X
与X
、X of object
和reference to X
兼容(其中X
是一个过程类型,如procedure(X: Integer)
)。例如,