在DELPHI中怎么把数据库的值赋给数组，详情见内！

Question

比如一个数组：ARRAY[0..3] 和一个TABLE      “ABC”
                 QWEQWE
                 YYYDD
                 DFSFSD
这样，我想把ARRAY[0]=‘QWEQWE’ 、ARRAY[1]=‘YYYD’ 、 ARRAY[2]=‘DFSFSD’该怎么写啊？

Answer 1

var aa: array of String;
    ii,iRecord: Integer;    ii := Table1.RecordCount;
    SetLength(aa,iRecord);
    Table1.First;
    for ii := 0 to iRecord - 1 do
    begin
      if not Table1.Eof then
        aa[ii] := Table1.FieldByName('ABC').AsString
      else
        Break;
      Table1.Next;
    end;

Answer 2

var
shuzu:array of string;
i:integer;
begin
i:=0;
setlength(shuzu,table1.recordcount);
table1.first;
while not table1.eof do
shuzu[i]:=table1.fieldbyname('yyyd').asstring;
table1.next;
end;