这是数据库插入数据程序:
var
querystr1:string;
g_mingcheng:string;
g_bianhao:integer;
begin
g_bianhao:=strtoint(edit5.text);
g_mingcheng:=edit6.text;
sqlbumen0.Close;
queryStr1 := 'insert into gonganbumen'+
'(g_bianhao,g_mingcheng )'+
'values("'+
inttostr(g_bianhao) +'","'+
g_mingcheng +'")';
运行的时候出现这样的错误:这个g_bianhao:=strtoint(edit5.text)是“is not a valid integer value"为什么?我已经把edit5的内容做转换了?为什么会这样?
var
querystr1:string;
g_mingcheng:string;
g_bianhao:integer;
begin
g_bianhao:=strtoint(edit5.text);
g_mingcheng:=edit6.text;
sqlbumen0.Close;
queryStr1 := 'insert into gonganbumen'+
'(g_bianhao,g_mingcheng )'+
'values("'+
inttostr(g_bianhao) +'","'+
g_mingcheng +'")';
运行的时候出现这样的错误:这个g_bianhao:=strtoint(edit5.text)是“is not a valid integer value"为什么?我已经把edit5的内容做转换了?为什么会这样?
解决方案 »
- 如何做认证
- 如何实现手翻动一页书的动画效果?(高手请进)
- 在线等待,如何用MediaPlayer连续播放checklistbox里面的文件?谢谢
- 字符串处理的问题,分没了,各位大侠帮帮我吧?在线等
- 请教一个Delphi函数的问题!(*挺陌生的函数*)
- 如何清除全角方式下的空格。Trim函数不可以的,只能清除半角下的空格。
- 文本文件如何导入access数据库
- 哪能下载ROSE和POWER DESIGN!
- 怎样在“单击或双击”事件中增加树节点的图标?
- 高分悬赏100!怎样列出WINDOWS系统内存中在使用的所有.DLL名?怎么从中卸掉一个.DLL?
- 下载网页用那个控件比较好点?
- 不希望同一个存储过程执行两遍!如何写判断条件!
'(g_bianhao,g_mingcheng )'+
'values('+
inttostr(g_bianhao) +',"'+
g_mingcheng +'")';
queryStr1 := 'insert into gonganbumen'+
'(g_bianhao,g_mingcheng )'+
'values('+
g_bianhao +',"'+
g_mingcheng +'")';
'(g_bianhao,g_mingcheng )'+
'values('+
g_bianhao +',"'+
g_mingcheng +'")';
再看
呵呵
还不用转换类型
你转换的时候,最好加抛出异常语句
try
g_bianhao:=strtoint(edit5.text);
except
ShowMessage(输入的不是数字);
exit;
end;