delphi - 迭代节点及其子节点并修改数据

Question

我正在使用 delphi 2009 的虚拟树列表。我创建了一个包含以下数据的树:

type
  PTreeData = ^TTreeData;
  TTreeData = record
    FCaption: String;
    FPath: String;
  end;

我想以特定顺序迭代所有元素。我需要获取第一个顶级节点，然后迭代其所有子节点并修改 FPath 字段。当我处理完它的子节点后，我想要获得另一个顶级节点，依此类推。

首先，我不知道如何迭代顶级节点。

预先感谢您对此的任何提示

Answer 1

以下是迭代顶级节点的方法。请注意(正如 Smasher 在评论中留下的那样)，如果需要，可以使用 GetFirst 和 GetNextSibling 来初始化节点，这可能会稍微减慢迭代速度。但是，您可以使用 GetFirstNoInit 和 GetNextNoInit 函数(如果您已经初始化了节点)，并且可能会获得更好的性能。

procedure TForm1.Button1Click(Sender: TObject);
var
  Data: PTreeData;
  Node: PVirtualNode;
begin
  Node := VirtualStringTree1.GetFirst;
  while Assigned(Node) do
  begin
    Data := VirtualStringTree1.GetNodeData(Node);
    // here you can access your data
    Node := VirtualStringTree1.GetNextSibling(Node);
  end;
end;