Liste zu einem binären Baum umformen

[Alaitoc]

Hm, habs nu so gelöst das ich die Liste mit meiner Funktion immer nach einem Zeichnen dursuche und zwar in der Reihenfolge:

Delphi-Quellcode:

+,-,*,/,^,0..9

Wenn das Zeichen gefunden wird, schreibt er das Token in

Delphi-Quellcode:

PTBinaryNode : ^TBinaryNode;
TBinaryNode = record
[b]Token:TToken;[/b]
  RightNode:PTBinaryNode;
  LeftNode:PTBinaryNode;
end;

Dann übergibt er diesen "Knoten" zu der Funktion die wieder die ganze Liste durchsucht, falls gefunden wird wieder ein Node erstellt und dieses wird dann erst dem LeftNode des vorigen Knotens hinzugefügt, falls dieses voll ist dem RightNode.
Das geht immer soweiter bis kein Zeichen mehr vorhanden ist...


Also....Vielen Dank :)

MfG Alaitoc