Thema: Delphi Finden einer Node

Einzelnen Beitrag anzeigen

CalganX

Registriert seit: 21. Jul 2002
Ort: Bonn
5.403 Beiträge
 
Turbo Delphi für Win32
 
#5

Re: Finden einer Node

  Alt 7. Jan 2004, 17:31
Hi,
gute Idee. Warum ich das immer vergessen?!

Jedenfalls hakt es an der markierten Zeile bzw. in der danach.
Code:
function TfrmMain.GetProjectNode(aNode: PVirtualNode): PVirtualNode;
var
  pNode: PVirtualNode;
  pData: PTVData;
begin
  pNode := aNode;
  Result := nil;
  while (true) do begin
    if (pNode = nil) then Exit;
[color=#ff0000]   pData := vstData.GetNodeData(pNode);[/color]
    if (pData = nil) then Exit;
    if (pData.dwMode = 1) then Break;
    pNode := pNode.Parent;
  end;
  Result := pNode;
end;
(Ja... das ist ein anderer Source, aber der oben war falsch)

Chris
  Mit Zitat antworten Zitat