Binärbaum rekursiv auslesen

[Gargamel]

Hi

Ich möchte einen Binärbaum rekursiv auslesen. Doch leider scheint sich der PC daran zu stören, daß hier rekursiv gearbeitet wird.
Der Quellcode sieht so aus:

Delphi-Quellcode:

procedure ReadTree(node:PNode);
Begin
  if node<>nil then
  Begin
    Form1.ListBox1.Items.Add(node.name); // zu Kontrollzwecken in Listbox anzeigen
    if node.ChildNode1 <> nil then ReadTree(node.ChildNode1);
    if node.ChildNode2 <> nil then ReadTree(node.ChildNode2);
  end;
End;

Die Deklaration von PNode sieht so aus:

Delphi-Quellcode:

PNode = ^TNode;
TNode = record
   name:string;
   ChildNode1,ChildNode2:PNode;
   ParentNode:PNode;
end;

[p80286]

Wie sieht "Stören" denn aus?
Geht der Bildschirm in Flammen auf?

Gruß
K-H

[Gargamel]

Das Programm schmiert ab.

[p80286]

Wetten das "abschmieren mit "Endlosschleife" übersetzt wird?

Hast du es mal mit F7/F8 versucht?

Gruß
K-H

[Gargamel]

Das Programm ist nicht in einer Endlosschleife, sondern bricht mit einer Zugriffsverletzung bei Adresse xyz ab.

[daywalker9]

Dann zeig doch mal die ZEile in der das Auftritt, das zeigt dir der Debugger ja an.

Und zeige mal, wie Du die Elemente in die Liste einfügst.

[Gargamel]

Das Programm bricht hier ab:

if node.ChildNode1 <> nil then ReadTree(node.ChildNode1);

Der komplette Code steht hier: http://www.delphipraxis.net/165995-b...-anwenden.html
(Die Funktion ReadTree(...) und deren Aufruf in TForm1.Button1Click(...) kommt dann halt noch hinzu.)

[Gargamel]

Ich habe es hinbekommen. Der Fehler war, daß ich bei der Initialisierung der Knoten vergessen hatte, den nicht existierenden Kindknoten noch ein nil zu verpassen.

[Aphton]

Die zwei weiteren If-Abfragen sind unnötig, denn beim nächsten Durchlauf wird sowieso darauf geprüft!
Wegmachen!

[Caesar2012]

EDIT: Delete