Treeview(Binärer Baum) und Parser Problem

[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...