将表中某一行数据放入一维数组，求最简单快捷的方法。。。

Question

?

Answer 1

var
  a:array of string;
  i:integer;
begin
  SetLength(a,ClientDataset1.Fields.Count);
  for i:=0 to ClientDataset1.Fields.Count-1 do
    a[i]:=ClientDataset1.Fields[i].AsString;
end;这样笨了点，不是也挺好的吗？

Answer 2

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