TreeView - NodeExists Funktion ?

[moelski]

Moin !

Kann mir jemand sagen wie ich ein NodeExist realisieren kann?

Ich habe es mal so probiert:

Delphi-Quellcode:

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

Aber das geht nicht.

Ich merke mir in einer Variable einen TTreeNode. Und die Funktion soll mit False zurück kommen wenn dieser Node nicht mehr existiert (weil gelöscht).

[DeddyH]

Assigned prüft ja auf nil. Wenn Du den TTreeNode beim Löschen also auf nil setzt, sollte das auch gehen. Vielleicht gäbe es auch andere Möglichkeiten, aber ich habe gerade kein Delphi zur Hand, um nachzusehen.

[mkinzler]

Dann könnte man aber auf die Funktion verzichten und direkt assigned verwenden

[DeddyH]

Jepp, wobei sich "Node_Exists" aber später besser lesen lässt.

[moelski]

Hmm aber ich lösche den Knoten doch schon:

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;
end;

Muss ich dann den gelöschten Knoten (und ggf. seine ChildNodes) alle explizit auf NIL setzen :gruebel:

[DeddyH]

Entweder das oder mit FreeAndNil freigeben.

[mkinzler]

Ich würde die beiden If Anweisungen verschmelzen und auf das Exit verzichten

Delphi-Quellcode:

if Node.Data <> nil then ...

[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. :gruebel:

[moelski]

Moin !

So nachdem ich mein Löschen erweitert habe und alles auf NIL setze und auch rekursiv lösche gehts nun :-)

Delphi-Quellcode:

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

  while node.HasChildren do begin
    Node_Delete(node.Item[0]);
  end;
  //ShowMessage('Lösche : ' +  Node.Text);

  {Free the class}
  if(  Node.Data <> nil  ) then begin
    TNodeInfo(Node.Data).NodeParent := NIL;
    Node.Data := NIL;
    TNodeInfo(Node.Data).Free;
  end;

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

[DeddyH]

Am Ende wird alles gut :mrgreen: :thumb: