procedure Tinput.Edit7Exit(Sender: TObject);
begin
try
strtofloat(edit7.Text);
except
begin
application.MessageBox('输入的数据不合法','提示',mb_iconinformation+mb_ok);
edit7.SetFocus;
end;
end;
end;
在编程环境中运行时,输入非法数据总是出错,而直接运行项目.exe文件后程序执行正常?这是为什么??
begin
try
strtofloat(edit7.Text);
except
begin
application.MessageBox('输入的数据不合法','提示',mb_iconinformation+mb_ok);
edit7.SetFocus;
end;
end;
end;
在编程环境中运行时,输入非法数据总是出错,而直接运行项目.exe文件后程序执行正常?这是为什么??
解决方案 »
- Delphi将数据逆向输出?
- 两关实时更新的问题
- 做了一个基于MIDAS的DLL服务器,调试时遇到问题,每次用完服务器后,DLL好像还在内存中,导致无法重新编译
- MDIForm 刷新图像
- 如何禁用键盘及鼠标!?
- 急!!!谁能告诉我delphi7.0中IntraWeb技术如何来实现报表打印
- 为什么给Form增加的属性在Object Inspector中看不到?
- 请教高手 delphi 下怎么直接往 端口写数据 如 (lpt1,com1,com2) 十万火急?
- 请问:delphi如何指定一个表单最先运行??
- form.onclose事件在直接点击标题栏右上角的关闭按钮时无法响应,请问如何解决?
- 如何让机子重启,关机,等
- DLL中如何定义进程间共享的全局变量
这个属性设置可以让你的程序在调试的时候是否跳到Except中
begin
try
Strtofloat(edit7.Text);
except
application.MessageBox('输入的数据不合法','提示',mb_iconinformation+mb_ok);
edit7.SetFocus;
end;
end;不可能.如果输入的数据里包括字母,一定会提示出错.
try...finally的用法是:试着去执行try下面的语句,不管出不出错,都将执行finally下面的语句。