谁帮我看下，这代码哪错了？？在线等！在线等！在线等！在线等！在线等！在线等！在线等！

Question

procedure TForm1.Button2Click(Sender: TObject);
var
  i : integer;
  sqlAdd : String;
begin
  self.ADOQuery1.Close;
  self.ADOQuery1.SQL.Clear;
  for i:=1 to 10 do
   begin
   Randomize;
   port:=port+Random(400);
   sqlAdd := 'insert into idsaudittmptable(dt,srcip,srcport,srcmac,ctype,detail,destip,destport,destmac)';
   sqlAdd := sqlAdd + ' values(''2008-01-06 14:14:14'',''127.0.0.1'',''+port+'','''',''ms'',''+s+'',''127.0.0.1'',4000,'''')';
   self.ADOQuery1.SQL.Text := sqlAdd;
   self.ADOQuery1.ExecSQL;
   end;
end;运行后错误提示在这一行 for i:=1 to 10 do 这怎么错了？？实在不明白！高手们指点指点！

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  i : integer;
begin
  for i:=1 to 10 do
  begin
   Randomize;
   port:=port+Random(400);
   with adoquery1 do
   begin
     close;
     SQL.Text := 'insert into idsaudittmptable(dt,srcip,srcport,srcmac,ctype,detail,destip,destport,destmac)'+
                 ' values(''2008-01-06 14:14:14'',''127.0.0.1'','''+port+''','''',''ms'','''+s+''',''127.0.0.1'',4000,'''')';
     showmessage(sql.text);
     ExecSQL;
   end;
  end;
end;

Answer 2

to zxf_feng  这两天发了很多帖，都用光了，不然我也不想啊。
还有你的方法我也试了，出现了和我一样的问题啊

Answer 3

 self.ADOQuery1.SQL.Clear;
写在for循环里面，
 for i:=1 to 10 do
   begin
     self.ADOQuery1.SQL.Clear;
。

Answer 4

procedure TForm1.Button2Click(Sender: TObject);
var
  i : integer;
  sqlAdd : String;
begin
  for i:=1 to 10 do
  begin
    Randomize;
    port:=port+Random(400);
    sqlAdd := 'insert into idsaudittmptable(dt,srcip,srcport,srcmac,ctype,detail,destip,destport,destmac)';
    sqlAdd := sqlAdd + ' values(''2008-01-06 14:14:14'',''127.0.0.1'',''+port+'','''',''ms'',''+s   +'',''127.0.0.1'',4000,'''')';
    with ADOQuery1 do
    begin
      Close;
      SQL.Clear;
      SQL.Text := sqlAdd;
      ExecSQL;
    end;
  end;
end;

Answer 5

哎，我已经知道自己哪里错了，楼上的几位都没有答对！我把自己改正后的代码发出来给大家看看！procedure TForm1.Button2Click(Sender: TObject);
var
  i : integer;
  sqlAdd : String;
begin
  self.ADOQuery1.Close;
  self.ADOQuery1.SQL.Clear;
  for i:=1 to 20000000 do
   begin
   port:=4000;
   Randomize;
   port:=port+Random(400);
   sqlAdd := 'insert into idsaudittmptable(dt,srcip,srcport,srcmac,ctype,detail,destip,destport,destmac)';
   sqlAdd := sqlAdd + ' values(''2008-01-06 14:14:14'',''127.0.0.1'','+inttostr(port)+','''',''ms'',''+s+'',''127.0.0.1'',4000,'''')';
   self.ADOQuery1.SQL.Text := sqlAdd;
   self.ADOQuery1.ExecSQL;
   end;
end;错误在那个port应该转换成字符型'+inttostr(port)+'