delphi - 如何获取TVirtualStringTree中显示的节点数？

Question

我需要在 TVirtualStringTree 中显示一个长数据库表(例如 50000 条记录)。为了减少查询执行时间，我限制了记录数，仅包含那些实际显示在树中的记录数。处理OnGetText的代码片段如下。问题是 VisibleCount 返回 50000 而不是 20-30，这破坏了这种方法。有没有办法正确地做到这一点？

procedure TContactsFrame.vstContactsGetText(Sender: TBaseVirtualTree; Node: PVirtualNode; 
  Column: TColumnIndex; TextType: TVSTTextType; var CellText: string);
begin
  if vstContacts.GetNodeLevel(Node) = 0 then
    CellText := 'Group'
  else if vstContacts.GetNodeLevel(Node) = 1 then
  begin
    if Contacts[Node.Index].Index = -1 then
    begin
      // getting DB table values of visible records only
      GetContacts(Node.Index + 1, Node.Index + 1 + vstContacts.VisibleCount, Contacts);
    end;
    CellText := Contacts[Node.Index].Name;
  end;
end;

Answer 1

VisibleCount 为您提供设置了 vsVisible 标志的节点数(可见意味着不隐藏)。

要枚举 TreeView 中当前显示的节点，您可以使用 TopNode 和 BottomNode ，方式类似于:

var
  Run, LastNode: PVirtualNode;
begin
  LastNode := Treeview.GetNextVisible(Treeview.BottomNode);
  Run := Treeview.TopNode;

  while Assigned(Run) do
  begin
    // your processing here

    Run := Treeview.GetNextVisible(Run);
    if Run = LastNode then
      Break;
  end;
end;