Thema: Delphi Finden einer Node

Einzelnen Beitrag anzeigen

Benutzerbild von Jens Schumann
Jens Schumann

Registriert seit: 27. Apr 2003
Ort: Bad Honnef
1.644 Beiträge
 
Delphi 2009 Professional
 
#13

Re: Finden einer Node

  Alt 11. Jan 2004, 12:48
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;
  Mit Zitat antworten Zitat