2,507
社区成员




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;
procedure TForm1.Button1Click(Sender: TObject);
var
A: Array of String;//定义动态数组
Index: Integer;//定义数组下标变量
begin
ADOQuery.SQL.Clear;
ADOQuery.SQL.Add('Select B from A');
ADOQuery.Open;
Setlength(A,ADOQuery.RecordCount); //设置数组宽度
Index := 0;//初始化下标
ADOQuery.First;
While Not ADOQuery.Eof Do //数据集循环
begin
A[Index] := ADOQuery.FieldByName('B').asString;//数据添加到数组中
Inc(Index);
ADOQuery.Next;
end;
end;