递归遍历树视图中的节点？

Question

我有一个树视图，其中已经填充了来自另一个过程的文件/文件夹。我想逐一迭代树视图中的项目，从上到下按照确切的顺序进行。但是，与普通列表不同，我不能只使用一个简单的for 语句。我必须进入每个节点等。

我该怎么做？我希望有一种方法可以在不运行递归过程的情况下做到这一点。当我遍历这些项目时，我不一定关心当前关注的项目的父节点或子节点。我只需要能够在传递每个节点时读取它们的Data 属性，并在我通过它时突出显示树视图中的当前节点。对于此树视图中的每个项目，我将执行一些工作，并希望向用户直观地显示在此过程中当前选择了哪个项目。

Answer 1

事实上你可以使用for循环。

var
  Node: TTreeNode;
....
for Node in TreeView.Items do
  DoSomething(Node);

这是语法糖：

for i := 0 to TreeView.Items.Count-1 do
  DoSomething(TreeView.Items[i]);

就可读性而言，我推荐for/in 循环。

在不支持节点迭代器的旧 Delphi 版本中，您可能更喜欢使用 while 循环。

Node := TreeView.Items.GetFirstNode;
while Assigned(Node) do
begin
  DoSomething(Node);
  Node := Node.GetNext;
end;

我希望还有其他方法可以做到这一点。我知道的只有这些！

---

LU RD 提出了documentation 声明的有趣观察：

按索引访问树视图项目可能会耗费大量时间，尤其是当树视图包含许多项目时。为获得最佳性能，请尝试将您的应用程序设计为尽可能少地依赖树视图的项目索引。

这是非常正确的。对于随机访问，代码必须遍历树，从根开始，直到找到第 i^th 节点。

但是，对顺序访问进行了优化。 Delphi 树视图包装器记住由索引定位的最后一个节点的索引。下次你请求一个与缓存节点的索引不超过一个的节点时，可以快速返回所需的节点。这是在TTreeNodes.GetNodeFromIndex 中实现的。

Answer 2

var
 i:Integer;
begin
  for I := 0 to tv.Items.Count - 1 do
      begin
        Listbox1.Items.Add(tv.Items[i].Text +' SubItems: ' + IntToStr(tv.Items[i].Count))
      end;

end;