如何正确遍历数据集实现仅含KeyField的单字段多记录数据感知组件

嘿，我一眼就看出问题出在哪了——你用的GetFieldList方法根本不是用来遍历数据集所有记录的字段值的！它的作用是获取数据集的字段结构列表（也就是字段对象集合），所以自然只会返回和第一条记录关联的那个字段对象，而不是每条记录的字段值。

要收集数据集里所有记录的KeyField值，你得手动遍历整个数据集，把每条记录的对应字段值捞出来。下面是修改后的代码方案：

private 
  FFieldDataLink: TFieldDataLink; 
  FDataList: TList;
// ... 其他代码 ...

if FFieldDataLink.DataSet.Active and (FFieldDataLink.FieldName <> '') then
begin
  FDataList.Clear; // 先清空旧数据
  try
    // 禁用控件更新，避免遍历过程中触发不必要的UI事件和闪烁
    FFieldDataLink.DataSet.DisableControls;
    // 移动到数据集第一条记录
    FFieldDataLink.DataSet.First;
    while not FFieldDataLink.DataSet.Eof do
    begin
      // 获取当前记录的KeyField值，添加到列表中
      // 这里根据字段类型调整，比如如果是字符串就用AsString，数值用AsInteger等
      FDataList.Add(Pointer(FFieldDataLink.DataSet.FieldByName(FFieldDataLink.FieldName).AsString));
      // 移动到下一条记录
      FFieldDataLink.DataSet.Next;
    end;
  except
    on E: Exception do
    begin
      DatabaseErrorFmt(SFieldNotFound, [Self.Name, FFieldDataLink.FieldName]);
      // 确保异常情况下也能恢复控件更新
      FFieldDataLink.DataSet.EnableControls;
      raise; // 可以选择重新抛出异常让上层处理
    end;
  end;
  // 恢复控件更新
  FFieldDataLink.DataSet.EnableControls;
end;

关键细节说明： #

• DisableControls/EnableControls：这对方法能避免遍历数据集时反复触发数据感知组件的更新事件，既提升性能又防止界面闪烁，一定要记得配对使用，异常情况下也要确保EnableControls被执行。
• 字段值的获取：根据你的KeyField类型调整获取方式，比如AsInteger、AsFloat、AsDateTime等，如果需要处理NULL值，可以先判断Field.IsNull，再决定添加默认值还是跳过这条记录。
• 大数据量场景：如果数据集有大量记录，建议先调用DataSet.FetchAll（如果是远程数据集的话）把所有记录拉到本地，避免反复请求数据库；同时可以考虑用TStringList替代TList（如果存储字符串的话），更方便管理。

另外，如果你需要监听数据集的变化（比如新增、删除记录），记得给FFieldDataLink绑定OnDataChange和OnUpdateData事件，在事件触发时重新执行上述遍历逻辑，保证你的组件数据和数据集同步。

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