Raiserror ('你好',16,1)
解决方案 »
- delphi OLE调用word 显示比例的问题
- 重复值捡索问题
- 获取歌曲的信息
- 通宵等待高手帮忙解决疑难杂症!
- frmmain.ADOQuery1.UpdateBatch(arCurrent)为什么出错?
- 能否给Query动态增加Field,如能增加,请示例.
- *** 加急 ***, 如何用delphi 调出, 浏览网络计算机的对话框, 并得到返回值!(有点像, “网络邻居”)
- 请问怎样在Delphi/C#.NET中调用AuthorWare文件?急在线等待!!!
- 程序员如何赚钱?
- QuickReport纸张设置,TQRPaperSize!你可知道?
- 100分请教菜鸟问题!关于三层结构的,在线等待!,急!
- 你在delphi中,用到了多少面向对象的知识?
ENotSoBadError=class(Exception);
EBadError=class(Exception);
ERealBadError=class(Exception);
raise ERealBadError.Create('this is real bad')在ApplicationEvents控件的onException事件中
var
rslt:string;
if E is EBadError then
begin
rslt:=messagedlg(format('%s %s %s %s %s',['An',e.ClassName,'exception has occurred.',e.Message,'quit app?']),mterror,[mbyes,mbno],0)=mryes;
if rslt then
application.Terminate ;
end
else if E is ERealBadError then
begin
messagedlg(format('%s %s %s %s %s',['An',e.ClassName,'exception has occured.',e.Message,'quitting application']),mterror,[mbok],0);
application.Terminate;
end
else
application.ShowException(e);
记得给分啊
ENotSoBadError=class(Exception);
EBadError=class(Exception);
ERealBadError=class(Exception);
raise ERealBadError.Create('this is real bad')在哪里写呀?水平有限,望指教!解决了,马上给分。