Finden einer Node

[Jens Schumann]

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.