var
t:integer;
begin
t:=0;exsql:='Insert into T_ZB(ZBH,JDJ) Values(t,'+''''+trim(Edit4.Text)+''''+')';
execsql(exsql);出错,请问如何引用int值?

解决方案 »

  1.   

    exsql:='Insert into T_ZB(ZBH,JDJ) Values(' + inttostr(t) + ','+''''+trim(Edit4.Text)+''''+')';
      

  2.   

    exsql:='Insert into T_ZB(ZBH,JDJ) Values('+IntToStr(t)+','+''''+trim(Edit4.Text)+''''+')';
      

  3.   

    exsql:='Insert into T_ZB(ZBH,JDJ) Values('+inttostr(t)+','''+trim(Edit1.Text)+''')';
      

  4.   

    exsql:='Insert into T_ZB(ZBH,JDJ) Values('+inttostr(t)+','''+trim(Edit4.Text)+''')';
      

  5.   

    可以这样写的
    exsql:='Insert into T_ZB(ZBH,JDJ) Values('+inttostr(t) + ','+ quotedstr(trim(Edit4.Text))+')';
    quotedstr是给变量的值加上一对单引号
    或者也可以用
    exsql:=Format('Insert into T_ZB(ZBH, JDJ) Values(%0:d, %1:s)', [t, quotedstr(trim(Edit4.Text))])

    exsql:=Format('Insert into T_ZB(ZBH, JDJ) Values(%0:d, ''%1:s'')', [t, trim(Edit4.Text)])