菜鸟请教:从表中读出数据赋值给数组

Question

var
   bdsarray: array[1..7] of string
现在想通过一个循环语句，从tbl_bds表中检索出gdjmc字段值（该字段中不同的值只有7个）
   adoquery1.sql.add('select distinct gdjmc from tbl_bds')；
想用循环语句赋给bdsarray数组，应该怎么写这个循环语句？

Answer 1

adoquery1.first
for I := 1 to 7 do
begin
if not adoquery1.eof then
begin
bdsarray[i]:=adoquery1.fields[0].asstring;
adoquery1.next;
end else break
end ;

Answer 2

Adoquery1.First;
for i:=0 to 6 do
begin
  bdsarray[i]:=Trim(Adoquery1.FieldByName('gdjmc').AsString);
  Adoquery1.Next;
end;

Answer 3

啊
for i:=1 to 7 do...

Answer 4

adoquery1.first
for I := 1 to adoquery1.RecordCount do
beginbdsarray[i]:=adoquery1.fields[0].asstring;
adoquery1.next;end ;

Answer 5

adoquery1.first；
for I := 1 to 7 do
beginbdsarray[i]:=adoquery1.fields[0].asstring;
adoquery1.next;
if adoquery1.eof then
break；end ;