虚拟树视图循环答案

【问题标题】：Virtual TreeView Loop虚拟树视图循环
【发布时间】：2012-07-13 00:41:09
【问题描述】：

我想遍历 VirtualTreeView 的所有根并删除它们。

我不想清除它。

我收到此代码的访问冲突：

var
 Node : PVirtualNode;
begin
 if VirtualStringTree1.GetFirst = NIL then exit;
 Node := NIL;
 repeat
  if Node = NIL then 
   Node := VirtualStringTree1.GetLast 
  else Node:=VirtualStringTree1.GetPrevious (Node);
  if Node <> NIL then VirtualStringTree1.DeleteNode(Node);
 until Node = VirtualStringTree1.GetFirst;
end;

感谢您的帮助。

【问题讨论】：

清空列表和删除所有节点有什么区别？
RootNodeCount := 0 怎么样？
rootnodecount := 0 听起来也不错。不同之处在于，在删除它们之前，我需要根节点中的一些数据。

标签： delphi delphi-7 virtualtreeview tvirtualstringtree

【解决方案1】：

您的实现中有一个逻辑错误：删除节点后，您的局部变量Node 指向一个不存在的节点。

我不明白你为什么不想只清除树，但你可以像这样从最后一个到第一个删除所有节点：

var
  Node, TmpNode: PVirtualNode;
begin
  Node := Tree.GetLast;
  while Assigned(Node) do
  begin
    TmpNode := Tree.GetPrevious(Node);
    Tree.DeleteNode(Node);
    Node := TmpNode;
  end;
end;

【讨论】：

这就像一个魅力谢谢。你说得对，我完全忘记了这一点。