在Delphi中获取Advantage Database查询的进度

var
  Query: TADOQuery;
  Progress: Integer;
begin
  // 创建查询
  Query := TADOQuery.Create(nil);
  try
    // 设置查询属性
    Query.Connection := ADOConnection1;
    Query.SQL.Text := 'SELECT * FROM MyTable';
    Query.FetchOptions := foRowByRow;

    // 执行查询
    Query.Open;

    // 获取查询进度
    Progress := Query.RowsAffected;

    // 处理查询结果
    while not Query.Eof do
    begin
      // 处理当前行数据
      // ...

      // 获取查询进度
      Progress := Query.RowsAffected;

      // 计算查询完成百分比
      Progress := Progress * 100 div Query.RecordCount;

      // 更新进度条
      ProgressBar1.Position := Progress;

      // 移动到下一行
      Query.Next;
    end;
  finally
    Query.Free;
  end;
end;