我依靠 VirtualTreeView 来显示数以千计的项目，这些项目有时会发生变化，当这种情况发生时，树会被清理并再次填充。
排序是自动完成的（toAutoSort 标志集），但这会产生递归初始化所有节点的不良影响，并且这是一个非常昂贵的操作，您可以想象。
那么当toAutoSort 关闭时，我应该什么时候调用.Sort 方法？ （DoInitChildren 看起来很合理，但我偶尔会得到奇怪的结果，比如颠倒的结果，所以我认为这不是对孩子进行排序的好事件。）
【问题讨论】：
标签： delphi sorting tree virtualtreeview
这种场景的一般规则是在所有新项目都添加后进行排序。这样您只需排序（和初始化）一次。
【讨论】：
除非整个树每次都完全不同，否则您可以通过不清除树来获得更好的性能，而是单独构建一个新的项目列表（只是项目的标识），对该列表进行排序，然后遍历两棵树order...一般算法看起来像这样（左边的列表是“新列表”，右边的列表是“现有列表”）：
LeftCur := 0;
RightCur := 0;
while (LeftCur < TotalLeft) and (RightCur < TotalRight) then
begin
if LeftList[LeftCur] = RightList[RightCur] then
begin
// matches, so just advance
Inc(LeftCur);
Inc(RightCur);
end
else if LeftList[LeftCur] < RightList[RightCur] then
begin
// insert happens BEFORE RightCur
InsertLeftItemToRight;
Inc(RightCur);
Inc(TotalRight);
end
else if LeftList[LeftCur] > RightList[RightCur] then
begin
DeleteRightItem;
Dec(TotalRight);
end;
end;
While RightCur < TotalRight do
begin
DeleteRightItem;
Dec(TotalRight);
end;
While LeftCur < TotalLeft do
AppendLeftItemToRight;
这样列表保持排序，您只需在 InsertLeftItemToRight 步骤中完成加载项目。在树中，每当你匹配时，你都会为孩子们运行类似的例程。这个概念与现有列表中的项目不会发生太大变化或完全加载可能很昂贵的事实相权衡。
【讨论】：