求救懒人问题(数组问题)~~

Question

设有控件eidt1到edit40
现在我使用一条SQL("SELECT A,B,C,D,F,EW,1Q,,D,F,F form XX where XX")这样的语句,然后想一次过用一过FOR来
把所有的sql得到的值全给EDIT1-40即:
ado.close;
ado.sql.add('SELECT A,B,C,D,F,EW,1Q,,D,F,F form XX where XX');
ado.open;
for i:=0 to 39 do
begin
   ?????:=ado[i];
end;
这样的可以吗??可以的话请教我如何使用..谢谢!!!

Answer 1

劝老大还是找本讲ADO的书看看吧!!

Answer 2

就是讲,...在FORM1内有Edit1,eidt2,eidt3......edit40这样!!!!现在我使用
QUERY1.SQL.ADD('SELECT A,B,C,D,E,F,G,DS,5.... FROM WWW  ');
Query1.open;
这样!!!现在就是想把Query1.内的值付给EIDT1~EDIT40求最快的方法!!

Answer 3

不是ADO问题!!是...求快问题!最原始的方法是
eidt1.text:=query1[0];
eidt2.text:=query1[1];
.....
eidt40.text:=query1[39];
这样..现在我想就是用一个FOR 来把上面的搞掂!!如果在ASP我会是
for i=1 to 39 do
eidt(i).text:=query[i];
这样的

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
begin
  for i:=1 to 40 do
  begin
    if self.FindComponent('edit'+inttostr(i)) is Tedit then
    TEdit(self.FindComponent('edit'+inttostr(i))).Text:=ADOQuery1.Fields[i-1].Value;
  end;
end;