Delphi，TcxGrid 或 TDataSet 中最快的记录访问方法是什么

Question

我正在使用 Delphi 2007 和 TcxGrid 来显示文件库的内容。该数据库包含有关文件类型、名称、路径和扩展名的信息。

在测试中，我通过 TDataSet 将 1700 条记录加载到网格中。我还在网格中为另外 3 个需要计算的字段腾出了空间。它们是文件是否存在、文件大小和修改日期。

我的目标是向用户显示存储的所有信息（效果很好而且速度很快），然后在后台线程中找到其他三个数据字段的信息，然后将它们插入到 TcxGrid 中。这个问题与我正在做的线程几乎没有关系。它工作正常。

我的问题是，访问已构建的网格中的字段时，速度会大大减慢。我尝试了两种不同的方法...

1. Grid.DataController.Values[RecordIndex,FieldIndex] - 但这是一个变体，我怀疑这就是它如此慢的原因

2. Grid.DataController.DataSet.FindFirst Grid.DataController.DataSet.FindNext Grid.DataController.DataSet.Fields[FieldIndex] 但使用这种“寻找”方法与我尝试的第一种方法一样慢。定位和移动也很慢。

这么长的问题很短，访问记录最快的方法是什么？

Answer 1

另请说明您使用的是 TcxGridDBTableView 还是 TcxGridTableView？

我认为使用非数据库感知 TcxGridTableView 或 TcxBandedGridTableView 与

View.DataController.Values[RecordIndex, FieldIndex] 是最快的。

即使您有一个数据库应用程序，您也可以在初始化时加载视图的非数据库版本，然后处理 DataController 事件来检测数据更改并发出相应的 SQL 命令来更新数据库。

您可以像这样填充视图：

class procedure TForm1.FillView(const View: TcxGridBandedTableView; const Sql: string);
var
  Reader: TMyOrmDataReader;
  i: Integer;
begin
  Assert(Assigned(View), 'View is not assigned parameter.');
  with View.DataController do
  begin
    BeginFullUpdate;
    try
      Reader := TMyOrm.GetDataReader(SQL);
      try
        i := 0;
        RecordCount := 50 * 1000; // make it something big in order to avoid constant resizing by 1
        while Reader.Read do
        begin
          // Fill the view
         Values[i,  0] := Reader.GetInt32(0);
         Values[i,  1] := Reader.GetString(1);
         Inc(i);
        end;
        RecordCount := i - 1;
      finally
        Reader.Free;
      end;
    finally
      EndFullUpdate;
    end;
  end;
end;

然后访问如下值：

View1.DataController.Values[View1.DataController.FocusedRecordIndex, View1Column1.Index].AsString

Answer 2

您可以首先使用表/数据集附加缺失的数据，然后将所有字段显示为数据绑定。

Answer 3

更新代码需要在开始/结束更新内是我的大问题。

感谢 Lieven 的评论，因为它解决了我的问题。感谢加德和丹尼尔的回复，我从中学到了东西。

如果我昨天有更多时间发布一些代码，这对每个人来说都会更加明显。

Answer 4

我知道这是一个旧线程，但我会提到将网格切换为使用提供者模式是提高加载速度的另一种方法，因为它本质上将网格加载变成了虚拟操作。 （直到需要显示或其他数据访问时才会加载记录。）之后，DataController 会缓存它们，因此加载后访问速度非常快。