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:

Delphi-Quellcode:

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

[shmia]

Hier noch eine kleine Verbesserung um den Forscherdrang zu befriedigen:
Mit dem Parameter "Level" kann man nachverfolgen, wie tief ein Knoten im Baum steckt.
Beim 1. Aufruf gibt übergibt man den Level mit 0.

Das "Abgrasen" eines Baums nennt man übrigens "Besuchen" oder "Traversieren";

Delphi-Quellcode:

procedure VisitTree(node:PNode; Level:integer);  // preorder traversal
Begin
  if node<>nil then
  Begin
    Form1.ListBox1.Items.Add(Format('%s [%d]', [node.name, Level]); // zu Kontrollzwecken in Listbox anzeigen
    VisitTree(node.ChildNode1, Level + 1);
    VisitTree(node.ChildNode2, Level + 1);
  end;
End;

Schau mal was passiert, wenn man die Reihenfolge des Besuchens umstellt:

Delphi-Quellcode:

procedure VisitTree(node:PNode; Level:integer); // inorder traversal
Begin
  if node<>nil then
  Begin
    VisitTree(node.ChildNode1, Level + 1);
    Form1.ListBox1.Items.Add(Format('%s [%d]', [node.name, Level]); // zu Kontrollzwecken in Listbox anzeigen
    VisitTree(node.ChildNode2, Level + 1);
  end;
End;