树的奇怪问题, 在线，立即结贴

Question

//清理树结构 <清除无表子节点的表类型节点>
      for i:= Tree.Items.Count - 1 Downto 0  do
         if Tree.Items.Item[i].Level = 0 then
            if Tree.Items.Item[i].Count = 0 then
              Tree.Items.Item[i].Delete;有时将所有树节点全删除了

Answer 1

for i:= Tree.Items.Count - 1 Downto 0  do
         if Tree.Items.Item[i].Level = 0 then
            if Tree.Items.Item[i].HasChildren = false then
              Tree.Items.Item[i].Delete;