Thema: Delphi Zeiger überführen

Einzelnen Beitrag anzeigen

Oxmyx

Registriert seit: 21. Sep 2004
499 Beiträge
 
#4

Re: Zeiger überführen

  Alt 19. Okt 2007, 12:55
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.
  Mit Zitat antworten Zitat