Einzelnen Beitrag anzeigen

Gargamel

Registriert seit: 19. Mär 2007
171 Beiträge
 
#1

Binärbaum rekursiv auslesen

  Alt 26. Jan 2012, 13:12
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;
  Mit Zitat antworten Zitat