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.