如何高速操作大量数据

with ADOQ.RecordSet do
begin
  MoveFirst;
  while not EOF do
  begin
    FBegDateStrs.Add(Fields['BEG_DATE'].Value); //FBegDateStrs is a TStringList
    FEndDateStrs.Add(Fields['END_DATE'].Value); //FEndDateStrs is a TStringList
    MoveNext;
  end;
end;

用 RecordSet 会比直接操作ADOQ快上100倍