Delphi按指定ContactID值筛选数据库记录并显示到MCListBox

原代码的问题 #

你写的嵌套while逻辑完全错误：第一个while的判断条件放在外层，且没有移动记录指针，内部的while not Eof会直接遍历所有记录，根本没起到筛选作用，所以MCListBox会显示全部内容。

两种可行的修复方案 #

方案一：用数据集Filter属性（推荐，效率更高）

直接让数据集自身处理筛选，适合大数据量场景：

With AddressListTable do
begin
  Filter := Format('ContactID = %d', [I]); // 假设I是整数类型，若为字符串需加单引号
  Filtered := True; // 启用筛选规则

  // 遍历筛选后的记录添加到列表
  First;
  while not Eof do
  begin
    MCListBox.Items.Add(FieldByName('要显示的字段名').AsString);
    Next;
  end;

  Filtered := False; // 可选：后续需要全量数据时关闭筛选
end;

方案二：手动遍历筛选

如果不想用Filter，可逐行判断条件后添加：

With AddressListTable do
begin
  First; // 先回到数据集第一条记录
  while not Eof do
  begin
    if FieldByName('ContactID').AsInteger = I then
    begin
      MCListBox.Items.Add(FieldByName('要显示的字段名').AsString);
    end;
    Next; // 必须移动记录指针，否则会无限循环
  end;
end;

关键注意点 #

• 遍历前必须调用First，确保从数据集起始位置开始处理
• 手动遍历时一定要加Next，否则会停在当前记录死循环
• 若ContactID是字符串类型，Filter语句要改成Format('ContactID = ''%s''', [I])（注意转义单引号）

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