Treeview(Binärer Baum) und Parser Problem

[Alaitoc]

Hallo zusammen,

ich bin zur Zeit daran einen Matheparser zu programmieren und eigentlich ist soweit auch alles fertig, jedoch habe ich momentan ein Problem in der Ausgabe.

Erstmal zu meinem Programm:
1.Ich gebe einen Mathetext ein z.B. 3+4*8
2.Mein Lexikanischer Scanner erstellt ein TToken Objekt, dieses beinhaltet eins der Zeichen aus dem Mathetext und ein zugewiesenes Token z.B. 3 und tkInteger. Dieses TToken Objekte werden in einer Liste gespeichert, diese ist abgeleitet von TList.
3.Mein Parser erstellt anhand der Liste und den Tokens einen binären Baum z.b.

Delphi-Quellcode:

. 
        +
       / \
      3   *
         / \
        4   8

In Code ausgedrückt:

Delphi-Quellcode:

type PTBinaryNode = ^TBinaryNode;
     TBinaryNode = record
       Token:TToken;
       RightNode:PTBinaryNode;
       LeftNode:PTBinaryNode;
     end;

So diesen binären Baum habe ich nun in meiner Parserklasse, jedoch will ich ihn nun in ein TreeView Objekt bekommen...jedoch wie genau stelle ich das an?

Information am Rande, ich kenne von meinem binärem Baum nur die Wurzel und muss mich anhand der Pointer entlanghangeln.

Wäre für jede Hilfe dankbar und hoffe ich habe nix vergessen

MfG Alaitoc

[mkinzler]

Entweder abgeleitete TTreeNode oder (Nutz-)Daten in .Data verlinken

[Alaitoc]

Problem ist bei dem Ganzen noch das Programm muss in etwa so durchlaufen:

Delphi-Quellcode:

function TMathParser.CreateTree(BinaryNode: PTBinaryNode): PTBinaryNode;
begin
  if BinaryNode.RightNode<>nil then
  begin
    BinaryNode.RightNode:=CreateTree(BinaryNode.RightNode);
  end;
  if BinaryNode.LeftNode<>nil then
  begin
    BinaryNode.LeftNode:=CreateTree(BinaryNode.LeftNode);
  end;
end;

D.h. am Ende kommt eigentlich nur ein Knotenpunkt heraus...