Pointer "Bäume"

[Jens Schumann]

Hallo,
die o.g. genannte function SearchInTree besucht nicht jeden Knoten.
So wäre es besser

Delphi-Quellcode:

function TForm1.SearchInTree(Node: PNode; aNumber: Integer;SCB : TSeachCallBack): PNode; 
begin 
  If Node<>Nil then 
    begin 
    If Node^.Number=aNumber then 
      SCB(Node) 
    SearchInTree(Node^.Left,aNumber,SCB); 
    SearchInTree(Node^.Right,aNumber,SCB); 
    end; 
end;