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倍