TreeView - NodeExists Funktion ?

[moelski]

Moin !

Das will nicht. Selbst wenn ich das auf einen Node anwende:

Delphi-Quellcode:

procedure Node_Delete          (Node : TTreeNode);
begin
  if(  Node = nil  ) then Exit;

  {Free the class}
  if(  Node.Data <> nil  ) then
    TNodeInfo(Node.Data).Free;

  {Delete the node}
  Node.Delete;
  Node.Free;
  Node := NIL;
end;

Dann kriege ich bei:

Delphi-Quellcode:

function Node_Exists(Node : TTreeNode): Boolean;
begin
  Result := assigned(Node);
end;

Immer ein True als Ergebnis.