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;
解决方案 »
- 谁有不错的对软件BS及CS模式开发、应用比较的文章,求!
- 哪有树形带checkbox的控件?
- 高手请进:纯winsocket api多线程文件传输设计思路?
- 希望大家帮个忙:)非常感谢
- 交友
- 用户的实时输入记录怎样用ADO添加到access表中
- creport 数据为0时,报表显示空白
- 我在基类窗体中无dbgrid,但继承后有的窗体有,有的窗体没有,我如何在基类加入一个popupmenu菜单以对dbgrid中的记录进行操作?
- MTS中的dll文件编译一次后就驻留在内存,第二次就不能编译了,怎么办?
- delphi下多串口开发,程序运行时,除了串口1能被初始化,其他串口未被初始化
- 创建动态控件时,遇到的问题,望答?100分送上!在线等!
- 新手在mdi多文档程序设计中,文件保存遇到的问题!请高手指点!!!
showmessage(e.message);
看看错误是什么
showmessage(e.message);
看看错误是什么
单独运行生成的*.exe文件,你会发现一切如你所愿。
上述问题可能可以在Delphi中修改编译属性得到改变。
只要有异常,程序会跟踪到异常的那一个会给你错误的信息哦:)
你单独执行那个生成的exe,看看,报错信息就是你所想要的哦