如何获得通用类方法的方法地址?

时间:2019-05-07 06:00:54

标签: delphi generics

我们可以使用以下代码获取类方法地址:

type
  TMyClass = class
    procedure A;
  end;

var P: Pointer;
begin
  P := @TMyClass.A;
end;

对于泛型类,如何从泛型类获取方法地址?

type
  TGeneric<T> = class
    procedure A;
  end;


var P: Pointer;
begin
  P := @TGeneric<T>.A;  // <--- compilation error
end.

1 个答案:

答案 0 :(得分:9)

TGeneric<T>是开放类型,换句话说,并非所有类型参数都已指定。您的代码失败,因为开放类型的方法没有单个地址。不同的具体实例具有不同的地址。例如,TGeneric<Integer>.ATGeneric<string>.A是不同的方法,因此具有不同的地址。

除非您为泛型类型参数提供具体值,否则此构造将没有任何意义。考虑这个程序:

{$APPTYPE CONSOLE}

type
  TGeneric<T> = class
    class procedure A;
  end;

class procedure TGeneric<T>.A;
var
  P: Pointer;
begin
  P := @TGeneric<T>.A;
  Writeln(NativeInt(P));
end;

begin
  TGeneric<Integer>.A;
  TGeneric<string>.A;
end.

该程序输出两个不同的值。