Delphi - クラスコンストラクタが呼び出されていることを確認する

Question

これはおそらく簡単な質問ですが、クラスのコンストラクタが確実に呼び出されるようにする方法を知りたいと思います。

私は次のコードをお持ちの場合：

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

implementation 

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

をDelphiは、これを許可していません - 「静的メソッドをオーバーライドすることはできません」。

私は、オブジェクトが私のカスタムCreateコンストラクタを使用して作成され、祖先Createコンストラクタの呼び出しを禁止していることを確認します。

constructor Create(aName : String);overload; 

が、プログラマは、潜在的祖先は（）メソッドを作成して呼び出すことができます。

問題への私の現在のソリューションはこれのように一意に作成signaturedコンストラクタを定義することです。

Answer 1

祖先の名前を持つコンストラクタを単純に再導入します。いったんこれを実行すると、に導入されたコンストラクタを呼び出す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; 

あなたはTMyObject.Createにoverride修飾子を使用しないでください。

このスキームを使用すると、祖先で導入されたコンストラクタを使用してTMyObjectを作成することはできません。この場合、祖先はTObjectであり、唯一のコンストラクタはTObject.Createです。ユーザーはこのコードを書き込んだ場合：

X := TMyObject.Create; 

それはかなり明白だ、TMyObjectのコンストラクタはTObjectに導入された1つ、ないと呼ばれます。

---

あなたが恐れて、ユーザーが祖先のコンストラクタを使用してクラスを作成するためにフープを介してジャンプしまうなら、あなたはAfterConstruction方法から自分のものを行うことができます。それは仮想メソッドですので、それはあなたのオブジェクトが先祖のタイプのクラス参照を使用して作成された場合でも呼び出されます：

TMyObject = class 
public 
    procedure AfterConstruction;override; 
end; 

Answer 2

TObject.Createが仮想コンストラクタ、それゆえエラーではありません。

"他のプログラマー"が先祖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;