Methode "Free" selbst implementieren (Assembler-Problem?)

[VizeTE]

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.