with ADOQ.RecordSet dobegin 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;
With RecordSet, 100 times faster than direct operation of AdoQ