delphi - 单字段，多记录数据感知控制

Question

我试图创建一个数据感知组件，它是一个单字段、多记录控件，类似于 TDDBoookupList ，但仅使用 KeyField。我不知道如何正确地遍历数据集。

 private  
   FFieldDataLink:TFieldDataLink;
   FDataList:Tlist;

 if FFieldDataLink.DataSet.Active and (FFieldDataLink.FieldName<>'' ) then
 begin
   try
      FFieldDataLink.DataSet.GetFieldList(FFDataList,FieldDataLink.FieldName);
   except  
     DatabaseErrorFmt(SFieldNotFound, [Self.Name,FFieldDataLink.FieldName]);
   end;
 end;

上面的代码片段应该返回缓冲区中的字段列表，但它只返回第一条记录。

谢谢