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