delphi treeview删除节点

保留根节点
var
I : integer;
begin
for I := TreeView1.Items.Count -1 downto 1 do
TreeView1.Items.Delete(TreeView1.Items[I]);
end;

如果不保留：

TreeView1.Items.Clear;

删除一个父节点，其子节点会自动被删除。
一个节点的属性Count表示其直接的子节点数（不包括其“孙”节点),通过Item[]属性可以访问其子节点。
例如要删除1个节点下所有的子节点：
for i:=Node.Count-1 downto 0 do
Node.Item[I].Delete;
如此即可。
或者 Node.DeleteChildren;
掌握TTreeNode的用法就大致会用TTreeview了。