Finden einer Node

[Jens Schumann]

Hallo,
wenn ich Dich richtig verstanden habe, möchtest Du ab einem bestimmten Node im
Baum abwärts suchen. Dann probier mal folgendes:

Delphi-Quellcode:

procedure TForm1.SearchLoop(Node: TTreeNode);
{SearchLoop geht von Node aus im Baum abwärts}
var
  TmpNode : TTreeNode;
begin
  If Node<>Nil then
    {Hier wird dann entschieden, ob der gesuchte Node gefunden wurde}
  TmpNode:=Node.getFirstChild;
  While TmpNode<>Nil do
    begin
     SearchLoop(TmpNode);
     TmpNode:=Node.getNextChild(TmpNode);
    end;
end;