Delphi 7：创建未知对象的新实例答案

【问题标题】：Delphi 7: create a new instance of an unknown objectDelphi 7：创建未知对象的新实例
【发布时间】：2014-11-06 17:04:02
【问题描述】：

我有一个对未知类实例的 TObject 引用。如何调用这个未知类的构造函数来创建它的另一个实例？我知道Delphi有RTTI，但不清楚如何使用。

【问题讨论】：

stackoverflow.com/q/3068775
@Ken：这是针对不支持扩展 RTTI 的 Delphi 7。这是在 D2010 中添加的。
简短的回答是你不能这样做。

标签： delphi delphi-7 rtti

【解决方案1】：

你不能构造一个未知类型的对象。编译器必须在编译时知道正确的类类型，才能生成正确的代码。如果构造函数需要参数怎么办？多少？有哪些数据类型？它们是通过堆栈还是寄存器传递？这些信息很重要。

话虽如此，如果所讨论的类都派生自具有虚拟构造函数的公共基类，那么您只能构造此类对象。您可以使用TObject.ClassType() 方法获取对现有对象的类类型的引用，将其类型转换为基类类型，然后调用构造函数。例如：

type
  TBase = class
  public
    constructor Create(params); virtual;
  end;

  TBaseClass = class of TBase;

  TDerived1 = class(TBase)
  public
    constructor Create(params); override;
  end;

  TDerived2 = class(TBase)
  public
    constructor Create(params); override;
  end;

  ...

var
  NewObj: TBase;
begin
  if SomeObj is TBase then
    NewObj := TBaseClass(SomeObj.ClassType).Create(params);
end;

【讨论】：

值得补充的是，这是TComponent 工作的基本方式。一旦你有了 ClassType（比如 X），你就可以打电话给TComponentClass(X).Create(...)。 DFM 流的工作原理是在 DFM 中找到为特定类名注册的 ClassType 并按上述方式实例化它。