Delphi while 循环query数据库。循环体中如何判断是最后一行

在 Delphi 中使用 TDataSet 进行数据库查询时，可以使用 TDataSet.EOF 属性来判断是否已经到达查询结果集的末尾。

以下是一个使用 TDataSet 进行数据库查询并遍历结果集的示例代码：

var
  MyQuery: TADOQuery;
begin
  MyQuery := TADOQuery.Create(nil);
  try
    MyQuery.Connection := MyDatabaseConnection;
    MyQuery.SQL.Text := 'SELECT * FROM MyTable';
    MyQuery.Open;

    while not MyQuery.EOF do
    begin
      // 处理当前行
      if not MyQuery.EOF then
      begin
        // 如果不是最后一行，可以在这里做些事情
      end
      else
      begin
        // 如果是最后一行，可以在这里做些事情
      end;

      MyQuery.Next;
    end;
  finally
    MyQuery.Free;
  end;
end;

在上面的示例中，我们使用 TADOQuery 执行了一个名为 "MyTable" 的表的查询。然后，我们使用 while 循环遍历查询结果集中的每一行。在循环体中，我们检查当前行是否是最后一行，如果是，我们可以在 else 块中执行特定的代码。如果不是，则可以在 if 块中执行其他代码。最后，我们使用 TDataSet.Next 方法将指针移动到结果集中的下一行。