在Delphi中如何获取重载类构造函数（如Create(Value: String)）的地址？

在Delphi里，重载的构造函数本质是独立的类方法，每个都有自己的内存地址——但直接写@TMyClass.Create会报错，因为编译器不知道你要哪个版本。下面给你两种靠谱的方案，分别对应"知道签名直接取"和"遍历所有重载"的场景：

一、已知签名时：用类型化方法指针精准获取 #

如果你明确要找Create(Value: String)这个版本，最直接的方式是定义一个和它签名完全匹配的方法指针类型，再通过强制转换告诉编译器要锁定哪个重载：

先给个示例类（假设你已经有类似的类，这里做参考）：

type
  TMyClass = class(TObject)
  public
    constructor Create; overload;
    constructor Create(Value: String); overload;
  end;

constructor TMyClass.Create;
begin
  inherited;
end;

constructor TMyClass.Create(Value: String);
begin
  inherited Create;
  // 自定义逻辑
end;

然后定义匹配Create(Value: String)的方法指针：

type
  // 注意：签名要完全一致，参数类型、数量都不能错
  TStringConstructor = constructor(Value: string) of object;

最后获取地址：

var
  TargetAddr: Pointer;
begin
  // 强制转换让编译器锁定目标重载，再用@取出地址
  TargetAddr := @TStringConstructor(TMyClass.Create);
  // 现在TargetAddr就是你要的Create(Value: String)的内存地址了
end;

这种方式效率最高，没有额外依赖，适合你明确知道目标构造函数签名的场景。

二、需要遍历所有重载时：用RTTI灵活查找 #

如果你想一次性获取所有重载构造函数的地址，或者不确定具体签名，可以借助Delphi的RTTI（运行时类型信息）来实现：

首先确保引入Rtti单元，然后写如下代码：

uses
  Rtti, SysUtils;

var
  RttiCtx: TRttiContext;
  ClassType: TRttiType;
  ConstructorMethod: TRttiMethod;
  Params: TArray<TRttiParameter>;
begin
  RttiCtx := TRttiContext.Create;
  try
    // 获取目标类的类型信息
    ClassType := RttiCtx.GetType(TMyClass.ClassInfo);
    // 遍历所有名为Create的方法
    for ConstructorMethod in ClassType.GetMethods('Create') do
    begin
      // 筛选出构造函数
      if ConstructorMethod.IsConstructor then
      begin
        Params := ConstructorMethod.GetParameters;
        // 判断是否是Create(Value: String)：参数数量为1，且类型是String
        if (Length(Params) = 1) and (Params[0].ParamType.Name = 'string') then
        begin
          Writeln(Format('Create(Value: String) 地址: %p', [Pointer(ConstructorMethod.CodeAddress)]));
        end
        else
        begin
          Writeln(Format('其他构造函数 (%d个参数) 地址: %p', [Length(Params), Pointer(ConstructorMethod.CodeAddress)]));
        end;
      end;
    end;
  finally
    RttiCtx.Free;
  end;
end;

这段代码会遍历TMyClass的所有Create构造函数，通过参数数量和类型匹配到你要的版本，同时也能输出其他重载的地址。

注意事项 #

• 直接用@TMyClass.Create会触发编译错误，因为编译器无法区分重载版本，必须通过类型转换或RTTI明确指定。
• 方法指针的签名必须和目标构造函数完全匹配，包括参数类型、调用约定（Delphi默认是register，所以不用额外指定）。
• 如果构造函数是virtual或dynamic的，获取到的地址是实际实现的代码地址，而非虚表中的入口（虚表中存的是指向这个地址的指针）。

内容的提问来源于stack exchange，提问作者subo