La procédure de classe de classe de base doit instancier l'objet d'un descendant?

Question

Pourquoi dans le code ci-dessous, j'obtiens le message "Échec" plutôt que "Réussi"

Contexte: J'aime utiliser des procédures de classe qui instancient leur objet propriétaire, font quelque chose, puis le libèrent.

Cependant, cette approche ne fonctionne pas si j'ai un objet descendant:

Toutes les suggestions sur la façon de fournir des procédures de classe dans une classe de base qui peut être appelé comme un enfant? Est-ce que je pense à tort?

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

Strip tout bas au strict minimum, et vous verrez que vous ne créez jamais une instance TBase, donc par conséquent que TBase.Proc1() sera jamais appelé. Si vous voulez que TChild.Proc1() soit appelé, vous devez créer une instance TChild et laisser le polymorphisme fonctionner.

Il pourrait cependant y avoir de meilleurs moyens d'atteindre votre objectif (quel qu'il soit) que de faire en sorte qu'une méthode de classe crée une instance d'objet pour faire quelque chose. Peut-être devriez-vous clarifier votre question.

Answer 2

Ici, il est

Ajouter

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; 

changement

de

Base := TBase.Create; 

à

Base := GetBaseClass.Create; 

Profitez de votre travail

Cheer

A Pham

Answer 3

Vous pouvez le faire facilement avec méta-programmation! Changez simplement "TBase.Create" en "Self.Create" "self" représente la classe courante, elle ne metter pas si c'est une base o une classe enfant.

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;