[OOP]: sinnvolle Vererbung

[Phoenix]

Zitat von Stevie:

WAAAS??? Das Wurzel-Objekt ist doch bereits erstellt und du kannst es doch nicht einfach überschreiben!!! Was passiert denn dann, wenn die Mutterklasse auf das Teil zugreift? Deshalb hab ich doch gesagt, man muss die alten Werte erst retten!

Erm. Nee, das wäre ein Designfehler.

Das Wurzelobjekt wird doch bereits als abgeleitete Klasse erzeugt, damit kann die Mutter demnach auf alle Basismethoden wie gehabt darauf zugreifen.

Beispiel:

Delphi-Quellcode:

TListe = class
   wurzel: TItem;
   wurzelklasse: TItemClass;
   function Hinzufuegen: TItem;
   constructor Create(itemklasse: TItemClass);
end;

TItem = class
end;

TItemClass = Class of TItem;

TMyItem = class
end;

TMyItemClass = class of TMyItem;

constructor TListe.Create(itemklasse: TItemClass);
begin
   wurzelklasse := itemklasse; 
end;

function TListe.Hinzufuegen: TItem;
begin
   result := wurzelklasse.Create;
end;

Nun kann man mit

Delphi-Quellcode:

var
   l_liste: TLIste;
   l_item: TItem;
   l_myItem: TMyItem;
begin
   l_liste := TListe.Create(TItemClass);
   l_item := l_liste.Hinzufuegen;

   l_liste.Free;
   l_liste := TLIste.Create(TMyItemClass);
   l_myItem := l_liste.Hinzufzuegen as TMyItem;
end;

alle beliebigen abgeleiteten Items direkt durch die Basisliste instanzieren lassen.