Zeiger überführen

[Oxmyx]

Objektvariablen sind in Delphi automatisch Zeiger. Es ist also unnötig, eine weitere Indirektion einzuführen.

Überlegen wir mal, was du überhaupt machen willst: So wie ich das verstanden habe, willst du eine einfache Baumstruktur, bei der jeder Knoten auf beliebig viele weitere Knoten verweisen kann.
Dann bietet sich eine einfache Struktur an:

Delphi-Quellcode:

TNode = class
public
  Parent: TNode;
  Children: array of TNode;
  Data: ...
end;

Mehr brauchst du nicht. Du kannst leicht ein Knoten von einem Blatt unterscheiden, indem du überprüfst, ob weitere Knoten vorhanden sind. Falls nein, hast du ein Blatt und kannst auf die Daten des Blatts zugreifen.

Jetzt kannst du auch sehr einfach neue Knoten oder Blätter hinzufügen:

Delphi-Quellcode:

TNode = class
public
  Parent: TNode;
  Children: array of TNode;
  Data: ...

  procedure AddNode(Node: TNode);
end;

implementation

procedure TNode.AddNode(Node: TNode);
begin
  SetLength(Children, High(Children)+1);
  Children[High(Children)] := Node;
end;