VirtualStringTree 正确/推荐使用

Question

我已经使用 virtualstringtree 一段时间了。我将它用于两个不同的用途，首先作为普通树来选择、显示数据，其次作为网格来显示 SQL 语句的输出。

我加载到树中的所有数据都来自数据库。对于树示例，我有一个 ParentId 字段来区分层次结构，对于网格示例，我只需使用 SQL 语句以及每个树的自定义记录（这是唯一的）。

我的问题涉及填充树的首选/最佳方式。我从 VST 文档中了解到，您应该将 onInitNode 事件与 rootnodecount 一起使用。然而，我发现使用 AddChild() 方法非常相似，尽管不鼓励这样做。

让我展示一些（简化的）示例：

1.等级制度

type PData = ^rData;
    rData = packed record
      ID : Integer;
      ParentID : Integer;
      Text : WideString;
    end;

procedure Loadtree;
 var Node : PVirtualNode;
Data : PData;
 begin
    Q1 := TQuery.Create(Self);
            try
                Q1.SQL.Add('SELECT * FROM Table');
            Q1.Open;
            Q1.Filter := 'ParentID = -1'; //to get the root nodes
            Q1.Filtered := True;
            while not Q1.Eof do
            begin
                    Node := VST.AddChild(nil);
                    Data := VST.GetNodeData(Node);
                    Data.ID := Q1.Fields[fldID].AsInteger;
                    Data.ParentID := Q1.Fields[fldParentID].AsInteger;
                    Data.Text := Q1.Fields[fldText].AsString;
                    //now filter the query again to get the children of this node
                    PopulateChildren(Data.ParentID,Node); //add children to this node and do it recursively
                    Q1.Next;
            end;
       finally
          Q1.free;
      end;

end;

2. Grid

procedure LoadGrid;
var Node : PVirtualNode;
Data : PData;
begin
     Q1 := TQuery.Create(self);
        try
            Q1.SQL.Add('SELECT * FROM Table');
            Q1.Open;
            while not Q1.eof do
            begin
                    Node := VST.AddChild(nil);
                    Data.ID := Q1.Fields[fldID].AsInteger;
                    Data.Text := Q1.Fields[fldText].AsString;
                    Q1.Next;
            end;
    finally
            Q1.Free;
    end;
end;

所以本质上我绕过了 RootNodeCount 和 OnInitNode 方法/属性，并使用老式的方法将节点添加到树中。看起来效果很好。请注意，在示例中我在运行时创建和销毁查询。

我开始以这种方式使用树的原因是我可以一次加载树中的所有数据，然后在使用完后释放 TQuery。我在想，无论保持 TQuery 处于活动状态/创建状态，我仍然需要使用我的 rData 记录来存储数据，因此如果我不销毁 TQuery，则会占用更多内存。目前，我的应用程序在完全加载时使用大约 250+MB，并且当我运行 SQL 报告并将其显示在 VST 中时可能会增加。当我运行包含 20000 多个节点和 50 多个列的 SQL 报告时，我发现它使用了大约 1GB 的内存。我想知道我使用 VST 的方式在最小化内存使用方面是否不正确？

我最好创建一个树的生命周期查询并使用 onInitNode 事件吗？这样，当树请求数据时，它会使用 onInitNode/OnInitChildren 事件从 TQuery 获取数据（即树的纯虚拟范例）？因此，我需要在表单持续时间内保持 TQuery 处于活动状态。以这种方式使用它会带来任何内存优势/性能优势吗？

在上述情况下，我可以看到网格示例的差异将远小于层次结构（如果有的话）——因为所有节点在填充时都需要初始化。

Answer 1

不鼓励使用 AddChild() 的原因是它破坏了组件的虚拟范例 - 您创建所有节点，即使您可能永远不需要它们。假设查询返回 100 条记录，但树当时显示 10 个节点。现在，如果用户从不向下滚动，那么您就浪费了 90 个节点的资源，因为它们永远不需要（不可见）。因此，如果您担心内存使用情况，AddChild() 不是个好主意。另一件事是，如果结果集很大，填充树需要时间，并且您的应用程序当时不会响应。当使用虚拟方式（RootNodeCount 和 OnInitNode）时，树立即“准备就绪”，用户不会遇到任何延迟。

话又说回来，如果结果集（相对）较小，则使用 AddChild() 可能是最好的选择 - 它允许您在一个短事务中加载数据。即，在树结构的情况下，当用户展开父节点时立即加载整个“级别”是有意义的。

将 DB 与 VT 一起使用有点棘手，因为 DB 查询也是特殊资源，有其自身的约束（您希望保持事务简短，它相对较慢，DB 可能只支持单向游标等）。

所以我想说，你必须根据用例和数据量来决定每个具体情况，即

• 小结果集可以使用 AddChild() 一次性加载或加载到内部数据结构，然后通过VT的事件使用它；
• 对于树木来说，一次加载一层可能是一个很好的折衷方案；
• 如果批量加载非常大的结果集，可能会带来良好的性能和内存使用折衷，但会增加管理 VT 的代码的复杂性。

Answer 2

TQuery 提供类似数组的记录访问。

如果您检查文档，则可以使用 RecNo 属性跳转到每个记录，并且可以使用 Fields[i] （通过索引）跳转到每个字段。

使用TVirtualStringTree作为与数据库连接的虚拟模式是没有阻碍的。

一旦执行查询，数据就以 TDataSet 的形式在内存中可用，那么为什么不将其用作数据容器呢？

PS：使用索引访问字段比 FieldByName 更快。