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.
