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;