关于如何从多条记录中取数据

Question

这是一个很菜很菜的问题
我用QUERY取出了数据库中的很多记录
现在要将这些记录中的某一个字段赋值给某一个变量数组
数组个数肯定比记录数多，应该怎么赋值？

Answer 1

var
 I:integer;
 Arr:array of integer;
begin
 setlength(arr,1000); for i:=0 to 500 do
 Adoquery.open;
 Adoquery.frist;
 begin
 arr[i]:=Adoquery.fieldbyname('FieldName').asinteger; 
 Adoquery.next;
 end;

Answer 2

......
Adoquery.open;
Adoquery.frist;
for i:=0 to 500 do
 begin
 arr[i]:=Adoquery.fieldbyname('FieldName').asinteger; 
 Adoquery.next;
 end;end;

Answer 3

我的语句是这样的
       adoq_mune.First ;
        while not adoq_mune.Eof do
        begin
           sa_ml_name[i] :=adoq_mune.Fieldbyname('mod_name').asstring;
           i := i+1;
           adoq_mune.next;
        end;
出错是在BEGIN下的一句出错