delphi - 如何获得通用类方法的方法地址？

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

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.

最佳答案

TGeneric<T>是开放类型，也就是说，并非所有类型参数都已指定。您的代码失败，因为开放类型的方法没有单个地址。不同的具体实例具有不同的地址。例如，TGeneric<Integer>.A是与TGeneric<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.

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