Finden einer Node

[CalganX]

Hi,
ich habe das ganze mal auf das VST portiert und versucht das auf meinen Fall zu übertragen. Allerdings scheint das ganze eine endlosschleife zu sein.

Delphi-Quellcode:

function TfrmMain.SearchLoop(Node: PVirtualNode; sCaption: WideString): PVirtualNode;
var
  TmpNode : PVirtualNode;
  pData: PTVData;
begin
  If Node<>Nil then begin
    pData := vstData.GetNodeData(Node);
    if (pData <> nil) and (pData.szCaption = sCaption) then begin
      Result := Node;
      Exit;
    end;
  end else Result := nil;
  TmpNode:=Node.FirstChild;
  While TmpNode<>Nil do
    begin
     SearchLoop(TmpNode, sCaption);
     TmpNode:=Node.NextSibling;
    end;
end;

Chris

[edit] Ich weiß, dass ich was falsch gemacht habe. Und ich weiß auch, dass der Fehler darin liegt, dass ich den Rückgabewert von SearchLoop nicht behandel. Aber das Problem ist, dass ich nicht weiß, was ich tun soll. [/edit]