Node eindeutig identifizieren, JvPageListTreeView

[omata]

Warum exit und dann auch noch zweimal?

Delphi-Quellcode:

function TForm.TreeNodeSearch(aNode: TTreeNode; SearchItem: string): TTreeNode;
begin
  Result := nil;
  if (aNode.hasChildren) and (SearchItem <> '') then begin
    aNode:=aNode.GetFirstChild;
    while assigned(aNode) and not assigned(Result) do begin
      if SearchItem = aNode.Text then
        Result := aNode;
      aNode:=aNode.getNextSibling;
    end;
  end;
end;