Hallo,
ich habe ein kleines
OOP Problem, bei dem ich mal einen Tip brauche.
(Ich verwende D2007)
Von einer Basisklasse sollen beliebig viele Klassen abgeleitet werden.
Diese werden in einer TClasslist verwaltet und nur bei Bedarf instanziert.
Delphi-Quellcode:
TBasis = class
ID: string;
Constructor Create; virtual; abstract; // oder auch nicht abstract
end;
type TBasisClass = class of TBasis;
//Ableitung
TNewClass = Class(TBasis)
Constructor Create; override;
end;
Die Klassen werden in der Liste als TBasisClass abgelegt.
Wenn ich jetzt eine Instanz erzeuge, dann möchte ich den Constructor der letzten Vererbung aufrufen.
In dem Beispiel also der Constructor von TNewClass.
Delphi-Quellcode:
Instance : TBasisClass;
Parameter vom Typ TBasisClass;
Instance := Parameter.Create; // Create soll jezt aus der Vererbung kommen.
Ist das hinzukriegen?
Gruß
Peter