Zitat von
maximov:
Warum? Das bietet sich doch erstrecht an:
Delphi-Quellcode:
procedure liste.fügehinzu(element)
begin
TuInListe(element);
if element.besitzer = nil then
element.besitzer = mirSelbst;
end;
Das Problem ist, daß ich bei dieser Implementation nicht festlegen kann, daß ein Element
nie zu einer List gehören soll da jedes Element welches keinen Besitzer hat automatisch der List zugeordnet wird.
Würde ich das freie Element mit
Owner=ichselber angeben so würde es nicht nil sein und von der Liste nicht adoptiert werden.
Meine Idee wäre es, den Owner nicht automatisch von der Liste vergeben zu lassen (obwohl das komfortabler wäre) sondern das beim Konstruktor als Parameter anzuhängen.