基本クラスのクラスプロシージャは、子孫のオブジェクトをインスタンス化する必要がありますか？

Question

なぜ以下のコードでは、「成功」ではなく「失敗」メッセージが表示されるのですか？

背景：私は、所有者オブジェクトをインスタンス化して何かをしてから解放するクラス手続きを持っています。私は、子孫オブジェクトを持っている場合

しかし、このアプローチは動作しません。

子として呼び出すことができ、基本クラスでクラス手順を提供する方法上の任意の提案？これについて間違って考えていますか？最低限のダウン

Type 
    TBase = class(TObject) 
    Protected 
     Procedure Proc1; Virtual; 
    Public 
     Class Procedure MyClassProc; 
    end; 

    Class Procedure TBase.MyClassProc; 
    Var 
    Base: TBase; 
    begin 
    Base := TBase.Create; 
    Base.Proc1; 
    Base.Free; 
    end; 

    Procedure TBase.Proc1; 
    begin 
    Assert(FALSE, 'Failed'); 
    end; 

type 
    TChild = class(TBase) 
    protected 
     Procedure Proc1; Override; 
    end; 

    Procedure TChild.Proc1; 
    begin 
    ShowMessage('Succeeded'); 
    end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
    TChild.MyClassProc; 
end; 

Answer 1

ストリップすべては、あなたがそう、その結果のみTBase.Proc1()がこれまでに呼び出されます、あなただけの今までTBaseインスタンスを作成していることがわかります。 TChild.Proc1()を呼びたい場合は、TChildインスタンスを作成し、多態性がその魔法を働かせるようにする必要があります。

ただし、目的を達成するには、クラスメソッドがオブジェクトインスタンスを作成して何かを行うようにするよりも良い方法があります。たぶんあなたの質問を明確にする必要があります。ここで

Answer 2

それは

が

TBase = class; 
TBaseClass = class of TBase; 

TBase = class(TObject) 
protected 
    class function GetBaseClass: TBaseClass; virtual; 

function TBase.GetBaseClass: TBaseClass; 
begin 
    Result := TBase; 
end; 

TChild = class(TBase) 
protected 
    class function GetBaseClass: TBaseClass; override; 

function TChild.GetBaseClass: TBaseClass; 
begin 
    Result := TChild; 
end; 

変更

から

Base := TBase.Create; 

Base := GetBaseClass.Create; 

に追加されます

はあなたの仕事

チアーお楽しみ

Aファム

Answer 3

あなたは、メタプログラム書き込みで簡単にそれを行うことができます！ "TBase.Create"を "Self.Create"に変更します。 "self"は現在のクラスを表します。

Type 
    TBase = class(TObject) 
    Protected 
     Procedure Proc1; Virtual; 
    Public 
     Class Procedure MyClassProc; 
    end; 

    Class Procedure TBase.MyClassProc; 
    Var 
    MyObject: TBase; 
    begin 
    // MyObject := TBase.Create; 
    MyObject := Self.Create; // The Magic goes here, self is the class that's calling this method, in this case, TChild } 
    MyObject.Proc1; 
    MyObject.Free; 
    end; 

    Procedure TBase.Proc1; 
    begin 
    Assert(FALSE, 'Failed'); 
    end; 

type 
    TChild = class(TBase) 
    protected 
     Procedure Proc1; Override; 
    end; 

    Procedure TChild.Proc1; 
    begin 
    ShowMessage('Succeeded'); 
    end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
    TChild.MyClassProc; 
end;