delphi - （德尔福）query.next 不工作

Question

我需要帮助来修复我的代码...

我尝试使用此代码构建一些应用程序

Adoquery.close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from schedule where every like ''%5%''');
ADOQuery1.Open;

if not ADOQuery1.Eof then
  begin
  ShowMessage('hallo '+ADOQuery1.fieldbyname('remark').AsString);
  ADOQuery1.Next;
  end
Else
  Begin
  end;

结果我有 2 条数据记录，但为什么只显示一条注释？

我尝试跟踪它并在 ADOQuery1.next 中发现问题。在我的应用程序读取 ADOQuery.next 后，光标跳转到

结尾;

不回去

如果不是 ADOQuery1.Eof 那么

.

我的代码有任何错误吗？

Answer 1

执行不会回到 if 语句，因为代码没有说要这样做。你有一个 if 语句，没有迭代。你需要迭代。例如使用 while 循环：

while not ADOQuery1.Eof do begin
  // do something
  ADOQuery1.Next;
end;