如何把select出来的东西添加到一个数组中

Question

从表中读到一组类型相同（int）的数 怎样把他们添加到数组中？

Answer 1

with query1 do
begin
//你做的select 操作
select （int）的数的字段  from tablename where............
open;
end;
query1.first;
for i=0 to query1.recordcounts-1
do  begin
array[i]:=query1.fieldvalues['你选出来的字段'];
end;

Answer 2

     while not dm.ADOQuery1.Eof do
        begin
           for ii := 1 to dm.ADOQuery1.RecordCount  do
           begin
             am[ii]:=dm.ADOQuery1.fieldbyname('zd').AsInteger;
             dm.ADOQuery1.Next;
           end;
        end;