Finden einer Node

[CalganX]

Hi Jens,
so geht es natürlich auch.
Habe es jetzt aber so ähnlich, wie mirage gemacht.

Aber jetzt gibt es ein anderes Problem:
ich versuche eine Listnode zu finden. Das ist eine Node, die sich eine "Etage" tiefer als das Projekt befindet. Das Problem ist, dass es von diesen Listnodes mehrere gibt. Alle haben eine andere Beschriftung. Ich habe mir dafür folgende Funktion gebastelt:

Delphi-Quellcode:

function TfrmMain.GetListNode(Node: PVirtualNode; Caption: String): PVirtualNode;
var
  pData: PTVData;
begin
  if vstData.GetNodeLevel(Node) = 1 then begin
    pData := vstData.GetNodeData(Node);
    if pData.szCaption = Caption then
      Result := Node   // <-- hier
    else
      GetListNode(Node.NextSibling, Caption);
  end else begin
    if vstData.GetNodeLevel(Node) < 1 then
      GetListNode(Node.FirstChild, Caption)
    else
      GetListNode(Node.Parent, Caption);
  end;
  Result := Node;
end;

Das Problem ist nun aber, dass auf die markierte Stelle durch den Compilier nie zugegriffen wird. Wieso? Und ist irgendwo ein Fehler? Denn es öffnet sich zwar nicht das CPU-Fenster, aber dafür scheint der Rückgabewert lt. Delphi nil zu sein.

Chris