Forum: Algorithmen, Datenstrukturen und Klassendesign
by Gargamel,
26. Jan 2012
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.
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Gargamel,
26. Jan 2012
Das Programm bricht hier ab:
if node.ChildNode1 <> nil then ReadTree(node.ChildNode1);
Der komplette Code steht hier: http://www.delphipraxis.net/165995-binaerbaum-erzeugen-und-anwenden.html
(Die Funktion ReadTree(...) und deren Aufruf in TForm1.Button1Click(...) kommt dann halt noch hinzu.)
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Gargamel,
26. Jan 2012
Das Programm ist nicht in einer Endlosschleife, sondern bricht mit einer Zugriffsverletzung bei Adresse xyz ab.
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Gargamel,
26. Jan 2012
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:
procedure ReadTree(node:PNode);
Begin
if node<>nil then
Begin