看看我的这个问题怎么办?(关于ADOQUERY控件数组)(30分)

8

8341

Unregistered / Unconfirmed
GUEST, unregistred user!
我有10个Adoquery,从Adoquery1到Adoquery10分别为不同的数据集。在一个循环中,我想把
这些数据放到数组x[i,j]中。其中i为1~10,j则代表从1~adoquery(i).recordcount的数据。
但是我的ADOQUERY不是数组,在循环中无法使用。大家看怎么办?怎样创建ADOQUERY数组?

for i:=1 to 10 do
for j:=0 to adoquery(i).recordcount do
begin
x[i,j]:=adoquery(i).fieldbyname('field').asinteger;
adoquery(i).next;
end;
可是,adoquery(i)怎么做出来?
 
关注一下~!
 
var
ADOQuery: TADOQuery;
begin
for i:=1 to 10 do
begin
ADOQuery := FindComponent('ADOQuery' + IntToStr(I)) as TADOQuery;
for j:=0 to adoquery.recordcount do
begin
x[i,j]:=adoquery(i).fieldbyname('field').asinteger;
adoquery.next;
end;
end;
end;
 
解决了。用(form.components as TADOQuery).recordcount
(form.components as TADOQuery).fieldbyname('field').asinteger;
 
顶部