实现删除TreeList 组件的当前节点的方法

atiger

参考代码如下：

procedure TMainForm.DeleteAllNodes;
var
  I: integer;
  lNode: TTreeListNode;
begin
  for I := 0 to TreeList1.Count - 1 do
  begin
    lNode := TreeList1.Items[I];
    lNode.Free;
  end;
end;