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

话虽这么说,如果有问题的类都是从具有虚拟构造函数的公共基类派生的,那么你可以构造这样的对象.您可以使用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;