德爾福 - 確保調用類構造函數

Question

這可能是一個簡單的問題，但我想知道如何確保調用類的構造函數。

如果我有以下代碼：

type TMyObject = class(TObject) 
    public 
    constructor Create;override; 
end; 

implementation 

constructor TMyObject.Create;override; 
begin 
    inherited; 
    //do other instantiation 
end; 

德爾福不允許這樣 - 「不能覆蓋靜態方法」。

我想要做的是確保該對象是使用我的自定義Create構造函數創建的，並禁止調用祖先創建構造函數。

我目前的解決問題的方法是定義像這樣一個獨特的signatured創建構造函數：

constructor Create(aName : String);overload; 

但程序員可能調用祖先Create（）方法。

Answer 1

您只需重新引入一個帶有祖先名稱的構造函數。一旦你這樣做了，用戶就無法創建調用TObject中介紹的構造函數的TMyObject。如果使用這樣的代碼：

TMyObject = class 
public 
    constructor Create; 
end; 

constructor TMyObject.Create; 
begin 
    // I am not calling the inherited constructor because 
    // I do not want to. 
end; 

因爲祖先的構造函數不是虛擬的，您不使用override修改器TMyObject.Create。

使用此方案，用戶不可能使用在祖先中引入的構造函數來創建TMyObject。在這種情況下，祖先是TObject，它唯一的構造函數是TObject.Create。如果用戶寫這段代碼：

X := TMyObject.Create; 

這是相當明顯的，TMyObject的構造函數被調用，而不是一個在TObject介紹。

---

如果你害怕用戶會通過箍，以創建類使用祖先的構造跳，你可以從AfterConstruction方法做你的東西。這是一個虛擬的方法，所以即使你的對象是使用一個祖先的類型的類引用創建它被調用：

TMyObject = class 
public 
    procedure AfterConstruction;override; 
end; 

Answer 2

TObject.Create不是虛擬的構造函數，因此錯誤。

「其他程序員」可以稱爲祖先創建方法的唯一方法是故意跳過一些箍來做到這一點，例如，

var 
    ClassRef: TClass; 
    Obj : TObject; 
begin 
    ClassRef := TMyObject; 
    Obj := ClassRef.Create; 
end; 

爲新引進的構造函數將隱藏非虛擬TObject.Create

你想要什麼可能是更喜歡：

type TMyObject = class(TObject) 
    public 
    constructor Create;virtual; 
end; 

implementation 

constructor TMyObject.Create; 
begin 
    inherited; 
    //do other instantiation 
end;