我的代码如下:
sql.add('insert t_spjcxx values(,,,,:f)');
if hsgx.text='' then
parameters.ParamByName('f').value:=''
else
parameters.ParamByName('f').value:=strtoint(hsgx.text);
sql.add('insert t_spjcxx values(,,,,:f)');
if hsgx.text='' then
parameters.ParamByName('f').value:=''
else
parameters.ParamByName('f').value:=strtoint(hsgx.text);
解决方案 »
- 使用delphi控制标签机(打印一维码、二维码、数字、文字)
- 我是个Delphi数据库的开发新手,有个棘手问题请大家帮忙,谢谢!谢谢!!!
- self,owner和parent的问题,manco cantu的这个createC程序
- 串口问题,VC版无人能解,诚征高人参与。
- 散分!!!学编程真好!!
- 单号的问题。
- delphi 高手门请近,近来有分
- 不知为何我的线程老是半途出错??!
- 何处有实现类似于OFFICE中画表格一样方便的控件可下载?
- Delphi RTSP视频传输及播放程序设计
- 一个奇怪的问题,大家帮我看一看,???
- 關於用idHTTP時出現HTTP/1.1 414 Request-URI Too Large的問題
else
parameters.ParamByName( "f ").value:=strtoint(hsgx.text);
你那好象是INT吧
改成
parameters.ParamByName( "f ").asString试试
function Mystrtoint(var Astr:string; Adefault: int);
begin
try
Result := strtoint(Astr);
except
Result := Adefault;
end;
end;然后执行调用时可以使用
sql.add( "insert t_spjcxx values(,,,,:f) ");
parameters.ParamByName( "f ").value:=Mystrtoint(hsgx.text,0);