怎么没有循环呀

Question

procedure TF_jhd.BitBtn1Click(Sender: TObject);
var
i:integer;
begin     for i:=1 to 20 do
     adocommand1.CommandText:='insert into tb_rewarehouse_detailed([fullname],[type],[op]) values('''+Edit1.Text+''','''+Edit2.Text+''','''+stringgrid1.Cells[2,i]+''')';
     adocommand1.Execute;   showmessage('入库明细保存成功');  end;
 我想循环插入表中的20记录,表中有两百条纪录,上面的代码每次执行只插入第二十条(I的最后一条),搞不懂,哪错了呀

Answer 1

procedure TF_jhd.BitBtn1Click(Sender: TObject); 
var 
i:integer; 
begin      for i:=1 to 20 do 
     begin//////////此处
     adocommand1.CommandText:= 'insert into tb_rewarehouse_detailed([fullname],[type],[op]) values( ' ' '+Edit1.Text+ ' ' ', ' ' '+Edit2.Text+ ' ' ', ' ' '+stringgrid1.Cells[2,i]+ ' ' ') '; 
     adocommand1.Execute; 
     end;//////////此处
   showmessage( '入库明细保存成功 ');   end; 

Answer 2

for i:=1 to 100 do 
 .....
end;

Answer 3

没有加BEGIN 和 END拉,最后当然执行最后一条拉