Zu unbekanntem Klassenderivat casten?

[himitsu]

test.ClassType.Create

das Problem hierbei ist, daß ClassType vom Typ TClass ist, was der Klassentyp von TObject ist.
leider wird hier wohl vom Compiler .Create mit dem "Variablen"-Type hat verlinkt, also TClass.Create verwendet und demnach wird ein TObject erstellt.



meine schnelle Lösung war es eine "neue" Function einzuführen siehe Function CreateInstance in
http://www.delphipraxis.net/internal...t.php?t=151373

du mußt ja kein Interface nehmen (TObject oder TBasis reichen auch)

Delphi-Quellcode:

Function TBasis.CreateInstance: TBasis; Virtual; Abstract;

Function TAbleitungA.CreateInstance: TBasis; Override;
  Begin
    Result := TAbleitungA.Create;
  End;

und das würde dann in jeder Ableitung entsprechend überschrieben.



was auch geht, wäre: (ist aber nicht grad flexibel )

Delphi-Quellcode:

if test.ClassType is TAbleitungA then kopie := TAbleitungA.Create
else if test.ClassType is TAbleitungB then kopie := TAbleitungB.Create
.....

[edit] da hat dächschen wohl schneller getippt
[edit2] abstract hatte ich es ... zumindestens im programm