Hallo Stephan,
deine Funktion würde bei mir aus verschiedenen Gründen so aussehen:
Delphi-Quellcode:
function FindNode(nodes: TTreeNodes; data: Pointer): TTreeNode;
var
i: Integer;
begin
Result := nil;
for i := 0 to Pred(nodes.Count) do
if nodes[i].Data = data then
begin
Result := nodes[i];
Break;
end;
end;
Allerdings würde ich diese Funktion nicht benötigen, da ich so beim Suchen jedesmal im Mittel n/2 Knoten betrachten müsste. Ich würde für die Suche einen sortierbaren Container einführen, in welchem per binary search der TreeNode zu einem XmlNode gefunden werden kann. Die Signatur ändert sich dann geringfügig, indem dieser Container als erstes Argument an die Funktion FindNode() übergeben wird.
Zu deinem Bericht über die sporadisch und scheinbar unmotivierten Zeigerverluste fällt mir nur eines ein: Eventuell wurden die Schnittstellenzeiger zwischenzeitlich freigegeben und wieder neu erzeugt. Um das sicher auszuschließen, sollte vor dem Einfügen in den Container der Reference Count des Interface erhöht und beim Entfernen wieder erniedrigt werden. Fehler in deinem Code schließen wir mal aus...
Freundliche Grüße