Delphi TAdsQuery非静态问题：如何实现静态化及优化循环？

我明白你的困扰——每次Post新增记录后，查询结果集都会包含这条新记录，导致while not Qry.EOF永远无法终止，形成无限循环。你用记录数循环的临时方案是可行的，但确实有更优雅、更符合ADs组件设计的解决办法，下面给你梳理几种方案：

问题根源 #

Advantage Database Server的TAdsQuery默认使用动态游标（动态数据集），它会实时关联源表的变化。你每次tblSource.Post新增一条符合where Field1 = '123'条件的记录时，Qry的结果集会自动包含这条新记录，所以Qry.Next永远不会走到EOF。

最优解决方案：使用静态游标（快照） #

这是改动最小、最直接的方案，只需要给TAdsQuery设置静态游标类型，让查询结果一次性加载到内存，后续源表的变化不会影响结果集：

procedure TForm1.CreateQuery;
begin
  Qry := TAdsQuery.Create(self);
  Qry.TableType := ttADSCdx;
  Qry.DatabaseName := 'c:\project\windows\tools\StaticQuery';
  // 关键：设置静态游标，结果集固定为查询时的快照
  Qry.CursorType := ctStatic; 
  Qry.SQL.Add('Select * from Source');
  Qry.SQL.Add('where Field1 = ''123''');
  Qry.Open;
end;

设置后，原来的while not Qry.EOF循环就能正常终止了——因为结果集是查询时刻的快照，不会包含你后续新增的记录。

其他可选方案 #

1. 先把结果集加载到内存结构 #

如果需要对结果集做更灵活的操作，可以先把查询结果读取到内存容器（比如TList、TStringList），再遍历内存数据，完全和源表操作隔离：

procedure TForm1.Button1Click(Sender: TObject);
var
  FieldValues: TStringList;
  i: Integer;
begin
  CreateSourceTable;
  CreateQuery;

  FieldValues := TStringList.Create;
  try
    // 先把所有结果读入内存
    while not Qry.EOF do
    begin
      FieldValues.Add(Qry.FieldByName('Field1').AsString);
      Qry.Next;
    end;

    // 遍历内存数据进行操作
    for i := 0 to FieldValues.Count - 1 do
    begin
      tblSource.Append;
      tblSource.FieldByName('Field1').AsString := '123';
      tblSource.Post;
    end;
  finally
    FieldValues.Free;
    Qry.Free;
    tblSource.Free;
  end;
end;

这种方式适合结果集不大的场景，完全避免了源表变化对循环的影响。

2. 你的临时方案（记录数循环）优化 #

如果你坚持用记录数循环，要注意必须在循环开始前获取记录数，避免后续新增记录影响计数：

procedure TForm1.Button1Click(Sender: TObject);
var
  RecordCount: Integer;
  i: Integer;
begin
  CreateSourceTable;
  CreateQuery;

  // 提前获取初始记录数
  RecordCount := Qry.RecordCount;
  for i := 0 to RecordCount - 1 do
  begin
    tblSource.Append;
    tblSource.FieldByName('Field1').AsString := '123';
    tblSource.Post;
    Qry.Next;
  end;
end;

不过这种方式不如静态游标优雅，而且如果查询结果集非常大，RecordCount的获取可能会有性能开销。

方案对比 #

优先推荐静态游标方案，它完美解决了你的问题，同时保持代码简洁。

内容的提问来源于stack exchange，提问作者Bret Bordwell