请各位帮忙看看这段代码

qwert159

0 begin
1    with DM.queXXX do
2    begin
3       Close;
4       SQL.Clear;
5       SQL.Add('insert into tabXXX');
6       SQL.Add('values ('+strtoint(Edit1.Text)+')');
7       ExecSQL;
8    end;
9 end;

       编译时提示第6行出错，错误提示的大致意思是string和integer相冲突。我是新手，不知道怎么解决，请各位高人帮帮忙！谢谢啦！！

xclzc17

0 begin
1    with DM.queXXX do
2    begin
3       Close;
4       SQL.Clear;
5       SQL.Add('insert into tabXXX');
6       SQL.Add('values ('+Edit1.Text+')');
7       ExecSQL;
8    end;
9 end;

gpspda

with DM.queXXX do begin
  Close;
  SQL.Text := 'INSERT INTO tabXXX VALUES(:V1)';
  Parameters.ParamByName('V1').Value := Edit1.text;
  ExecSQL;
end;

lhpmch

以字符口串的形式插入就好了`

ngairon

以字符口串的形式插入就好了

lylanli

SQL.Add('values ('+Edit1.Text+')');

nanjamonja

还要记得判断Edit1.text里面是否为数值。安全第一。