Performance VirtualStringTree正确/推荐使用
我已经使用virtualstringtree一段时间了。我将它用于两种不同的用途，第一种是用于选择和显示数据的普通树，第二种是用于显示SQL语句输出的网格 我加载到树中的所有数据都来自数据库。对于树示例，我有一个parentId字段来区分继承人，对于网格示例，我只需使用一个SQL语句，为每个树定制一条记录（这是唯一的） 我的问题与填充树的首选/最佳方式有关。我从VST文档中读到，您应该将onInitNode事件与rootnodecount一起使用。然而，我发现使用AddChild（）方法非常相似，尽管不鼓励这样做 让我举几个（简化的）例子： 1。继承权Performance VirtualStringTree正确/推荐使用,performance,delphi,virtualtreeview,tvirtualstringtree,Performance,Delphi,Virtualtreeview,Tvirtualstringtree,我已经使用virtualstringtree一段时间了。我将它用于两种不同的用途，第一种是用于选择和显示数据的普通树，第二种是用于显示SQL语句输出的网格 我加载到树中的所有数据都来自数据库。对于树示例，我有一个parentId字段来区分继承人，对于网格示例，我只需使用一个SQL语句，为每个树定制一条记录（这是唯一的） 我的问题与填充树的首选/最佳方式有关。我从VST文档中读到，您应该将onInitNode事件与rootnodecount一起使用。然而，我发现使用AddChild（）方法非常相似
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;
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;
在上述情况下，我可以看到网格示例的差异远小于继承者权限（如果有的话），因为所有节点在填充时都需要初始化。不鼓励使用
AddChild（）AddChild（）RootNodeCountOnInitNodeAddChild（）所以我想说，这是你必须根据每个用例和数据量来决定的事情，即
- 小结果集可以使用
一次加载所有数据，或者加载到内部数据结构中，然后通过VT的事件使用它AddChild（） - 一次加载一个级别对树来说可能是一个很好的折衷方案
- 对于非常大的结果集，分批加载可能会提供良好的性能和内存使用折衷，但会增加代码管理VT的复杂性
RecNoFields[i]TVirtualStringTreeTDataSetPS：使用字段索引访问字段比使用
FieldByName