求教一种算法 如何删除一个父结点 同时删除他下面所有的子结点 在线等代码 立刻给分

Question

求教一种算法 如何删除一个父结点 同时删除他下面所有的子结点 要求代码 简单为好 希望高手们马上给答案 感激不尽

Answer 1

树只是个结构,删除链接就可能了,DATA不占什么空间的

Answer 2

如果是树节点的话可以这样:procedure ClearChildNodes(Node: TTreeNode);
var
  ChildNode: TTreeNode;
begin
  while Node.HasChildren do
  begin
    ChildNode:=Node.getFirstChild;
    Dispose(ChildNode.Data);
    ClearChildNodes(ChildNode);
    ChildNode.Delete;
  end;
end;