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

发布时间：2020-12-15 04:01:49 所属栏目：大数据来源：网络整理

导读：我正在为delphi 2009使用虚拟树列表.我创建了一个包含以下数据的树： type PTreeData = ^TTreeData; TTreeData = record FCaption: String; FPath: String; end; 我想按特定顺序迭代所有元素.我需要获取第一个顶级节点,然后遍历其所有子节点并修改FPath字段.

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

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

我想按特定顺序迭代所有元素.我需要获取第一个顶级节点,然后遍历其所有子节点并修改FPath字段.当我完成它的孩子时,我想获得另一个顶级节点,依此类推.

首先,我不知道如何在顶级节点上进行迭代.

提前感谢您提供此任何提示

解决方法

以下是迭代顶级节点的方法.请注意(正如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;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!