Delphi 7：创建一个未知对象的新实例

Question

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

Answer 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;