Finden einer Node

[CalganX]

Hi Jens,
vielen Dank! Das funktioniet wunderbar! Und das umschreiben auf VirtualStringTree hat auch wunderbar funktioniert.

Für alle interessierten: hier meine Funktion:

Delphi-Quellcode:

function TfrmMain.GetListNode(Node : PVirtualNode; const NodeText : String) : PVirtualNode; 
var 
  TmpNode : PVirtualNode;
  pData: PTVData;
begin 
  Result:=Nil; 
  If Node<>Nil then begin
    pData := vstData.GetNodeData(Node);
    If AnsiLowerCase(pData.szCaption)=AnsiLowerCase(NodeText) then
      Result:=Node;
  end;
  TmpNode:=Node.FirstChild;
  While (TmpNode<>Nil) and (Result=Nil) do 
    begin 
     Result:=GetListNode(TmpNode,NodeText); 
     TmpNode:=Node.NextSibling; 
    end; 
end;

Das ist Jens' Code einfach nur auf VirtualStringTree übertragen.

Danke,
Chris