我使用AdoQuery.RecordSet.GetRows方法可以讲着一行数据返回到一个二维数组中，但是如何将这个二维数据中的行列值放到一维数组里只能用循环方式？
请教！
以下是我能做到的最后一步，还是必须使用循环将得到的二维数据放到一维数组中。
procedure TForm1.Button3Click(Sender: TObject);
var
a:OleVariant;
i, j:integer;
arrRow: array of array of string;
arrResult: array of string;
begin
with ADOQuery1 do
begin
close;
sql.Text := 'select * from t_FeeExprs';
Open;
end;
SetLength(arrRow, ADOQuery1.RecordCount);
for i := Low(arrRow) to High(arrRow) do
SetLength(arrRow[i], ADOQuery1.FieldCount);
a :=ADOQuery1.Recordset.GetRows(ADOQuery1.RecordCount,0, EmptyParam);
SetLength(arrResult, ADOQuery1.RecordCount);
if Varisarray(a) then
begin
arrRow := a;
for j := 0 to ADOQuery1.FieldCount - 1 do
ShowMessage(arrRow[j][0]);
end;
end;
