procedure TForm1.Edit1Exit(Sender: TObject);
begin
try
StrtoFloat(Edit1.Text);
except
Begin
Application.MessageBox('请输入合法的数字!','错误:',MB_OK);
Edit1.SetFocus;
end;
end;
end;
begin
try
StrtoFloat(Edit1.Text);
except
Begin
Application.MessageBox('请输入合法的数字!','错误:',MB_OK);
Edit1.SetFocus;
end;
end;
end;
解决方案 »
- 招聘程序员,诚招
- ini中的section是中文名怎么读不出来值
- 分类汇总问题!向大虾求救!
- 怎样获得对象自身的拷贝?
- 我的clientsocket与serversocket进行通信时Errorcode=10053?
- C/S结构小程序,运行时客户端要读取服务器端的Access表中的用户名及密码进行验证,在Delphi中用什么控件比较好呢?
- 谁有:Delphi RTL函数及控件属性中文手册
- variant does not reference an automation object 錯誤,求救
- 各位老哥、老姐能不能给小弟一个在DELPHI里使用游标的例子?
- 有关于active form 的发布问题
- 创建动态控件时,遇到的问题,望答?100分送上!在线等!
- 新手在mdi多文档程序设计中,文件保存遇到的问题!请高手指点!!!
showmessage(e.message);
看看错误是什么
showmessage(e.message);
看看错误是什么
单独运行生成的*.exe文件,你会发现一切如你所愿。
上述问题可能可以在Delphi中修改编译属性得到改变。
只要有异常,程序会跟踪到异常的那一个会给你错误的信息哦:)
你单独执行那个生成的exe,看看,报错信息就是你所想要的哦