delphi – 通过树视图中的节点递归迭代？

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个节点.

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