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
 
#15

Re: Finden einer Node

  Alt 18. Jan 2004, 16:22
Hallo Chris,
stimmt, mein vorheriger Source klappert alle Unterknoten ab einem bestimmten Knoten
bis zum letzten Unterknoten ab.
Der Source hier funktioniert anders. Wähle einen bestimmten Knoten. Von diesem Knoten aus
werden alle Unterknoten besucht. Wenn ein Node mit dem gesuchten Text gefunden wurde bricht
die Rekursion ab.
Delphi-Quellcode:
function TForm1.SearchForNode(Node : TTreeNode; const NodeText : String) : TTreeNode;
var
  TmpNode : TTreeNode;
begin
  Result:=Nil;
  If Node<>Nil then
    If AnsiUpperCase(Node.Text)=AnsiUpperCase(NodeText) then
      Result:=Node;
  TmpNode:=Node.getFirstChild;
  While (TmpNode<>Nil) and (Result=Nil) do
    begin
     Result:=SearchForNode(TmpNode,NodeText);
     TmpNode:=Node.getNextChild(TmpNode);
    end;
end;
Ob das auch mit VirtualTreeView funktioniert kann ich sagen. Weil - habe ich nicht.
  Mit Zitat antworten Zitat