Delphi带条件查询循环仅获取第一条记录问题求助

你的代码存在几个关键问题，导致只能读取第一条符合条件的记录：

• 循环内提前关闭查询：你在begin...end块里调用了AddListQuery.Close;，第一次循环执行后就直接关闭了查询，后续记录根本无法读取。
• Next方法未指定对象：单独写next;会调用当前窗体的Next方法（如果存在），而非数据集的指针移动方法，查询指针始终停留在第一条记录。
• 多余的循环条件判断：你的SQL语句已经通过WHERE [ContactID] = :CID过滤出了所有符合条件的记录，没必要在while循环里重复判断参数值。

修正后的代码 #

procedure TAddressListForm.LoadMCListbox();
Var
  GetID : Integer;
Begin
  GetID := strtoint(ContactUnit.ContactForm.IDLabel.caption);
  ALMCListBox.Items.Clear;
  ContactForm.RootsDB.Connected := True;
  
  AddListQuery.Close;
  AddListQuery.SQL.Clear;
  AddListQuery.SQL.Text := 'SELECT * FROM AddAddress WHERE [ContactID] = :CID';
  AddListQuery.ParamByName('CID').Value := GetID;
  AddListQuery.Open;
  
  // 查询打开后默认指向第一条记录，无需额外调用first（特殊数据集设置除外）
  while not AddListQuery.Eof do
  begin                
    ALMCListbox.Items.Add(
      IntToStr(AddListQuery.FieldByName('AddID').AsInteger) + ';' +
      IntToStr(AddListQuery.FieldByName('ContactID').AsInteger) + ';' +
      AddListQuery.FieldByName('AddStreet').AsString + ' ' +
      AddListQuery.FieldByName('AddCity').AsString
    );
    // 明确调用数据集的Next方法，移动指针到下一条记录
    AddListQuery.Next;
  end;
  
  // 循环结束后统一关闭查询
  AddListQuery.Close;
End;

额外优化建议 #

• 避免使用SELECT *，明确写出需要的字段（AddID, ContactID, AddStreet, AddCity），提升查询效率同时增强代码可读性。
• 处理StrToInt时建议添加异常捕获，比如用TryStrToInt，防止IDLabel.Caption不是合法整数导致程序崩溃。

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