Delphi 7：創建一個未知對象的新實例

Question

我有一個TObject引用了一個未知類的實例。我如何調用這個未知類的構造函數來創建它的另一個實例？我知道德爾福有RTTI，但不清楚如何使用它。

Answer 1

您不能構造未知類型的對象。編譯器必須在編譯時知道正確的類類型，才能生成正確的代碼。如果構造函數需要參數呢？多少？什麼數據類型？他們是通過堆棧還是註冊？這些信息很重要。這就是說，如果有問題的類都是從具有虛擬構造函數的公共基類派生的，則THEN和ONLY THEN可以構造這樣的對象。您可以使用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;