Methodenaufruf einer bestimmten Klasse erzwingen

[Ralf Meyer]

Die Methode meiner realen Klasse wird nicht aufgerufen, wie bekomme ich das hin.

Mein Code:

Delphi-Quellcode:

Type
  tMyList = class( tList )
    Procedure Add( Const cClass : tMyBaseClass ) ;
  End ;

  tMyclassDef = class of tMyBaseClass ;
  tMyBaseClass = class
    classTyp : tmyClassDef ; 
    Procedure Clone ; Virtual ;
  End ;

  tMySpezielleKlasse = class ( myBaseClass )
    Procedure Clone ; Override ;
  End ;

  ...

    abc := tMySpezielleKlasse.create ;
    abc.ClassType := tMySpezielleKlasse ;

    List := tMytMyList.create ;
    List.Add ( abc ) ;

    // jetzt kommt das Problem
    ab_neu := tMyBaseClass( List[0] ).Clone ; // ruft das Clone von tMyBaseClass auf

    lClassType := tMyBaseClass( List[0] ).ClassType ;
    ab_neu := ( List[0] as lClassType ).Clone ; // ruft auch das Clone von tMyBaseClass auf

    // da wichtige Objekte Instanziert werden müssen, muss das Clone meiner speziellen
    // Klasse aufgerufen werden
  ...

Ich müsste irgendwie den Aufruf der abgeleiteten Klasse erzwingen - aber wie?

Weiß jemand einen Rat. Gruß

[Klaus01]

Guten Morgen,

besteht das Problem immer noch wenn Du die Methode abstract definierst?

Delphi-Quellcode:

  tMyclassDef = class of tMyBaseClass ;
  tMyBaseClass = class
    classTyp : tmyClassDef ;
    Procedure Clone ; Abstract; Virtual ;
  End ;

Grüße
Klaus

[Bummi]

in TMyClassDef Clone auf Virtual ;abstract; setzen

[himitsu]

Abstract besagt nur, daß man in tMyBaseClass für Clone keinen Code hinterlegen will.
Das hat aber garnichts mit dem Aufruf zu tun.

Delphi-Quellcode:

abc.ClassType := tMySpezielleKlasse ;

sollte in Delphi doch eigentlich nicht funktionieren. :shock:
Und wozu soll dieses gut sein?

Ansonsten sollte dein Code eigentlich funktionieren.
Kannst du mal bitte ein komplettes Beispielprojekt hochladen?

Welche Delphi-Version nutzt du denn?


Warum nutzt du TList und nicht TObjectList, für die Verwaltung deiner Objekte, bzw. als Vorfahre von tMyList?
Und was macht dein Add intern?

[Ralf Meyer]

Was für einfache Sachen man manchmal übersehen kann ...

Delphi-Quellcode:

  tMyclassDef = class of tMyBaseClass ;
 ...

  tMySpezielleKlasse = class ( myBaseClass )
    Procedure Clone ; Virtual;  // <= Fehler Virtual anstatt Override
  End ;

Ich habe die Methode Clone in der abgeleiteten Klasse als Virtual und nicht als Override deklariert. Dann kann es auch nicht funktionieren.

Danke für eure Hilfe.

[Bummi]

Dein erstes Post sagt etwas anders.:-D

[himitsu]

Das kommt davon, wenn man nicht das postet, womit man Probleme hat.