Zeiger überführen

[Oxmyx]

Verwende doch einen Zeiger auf deine Daten-Struktur, dann kannst du diesen in den Knoten auf nil setzen, und so signalisieren, dass dort keine Daten vorhanden sind.

Um das Beispiel von oben nochmal zu erweitern:

Delphi-Quellcode:

PCoolData = ^TCoolData;
TCoolData = record
  Wow: Integer;
  Cool: Single;
  Hey: string;
end;

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

  procedure AddNode(Node: TNode);
end;

Oder, um auch hier die Zeiger wieder wegzulassen, kannst du deine Daten-Struktur auch durch eine Klasse abbilden.