新手问题2号:在DELPHI中如何进行一般错误处理。 tryexceptend;tryfinallyend; 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 前者在except后写上万一出错后执行的任务;后者在finally后写无论是否出错,都必须执行的任务 建立一个procedure procedure MyException(Sender:TObject; E:Exception);在form的 oncreat中加入 Application.OnException := MyException;然后在myexception中根据不同的e.classname,e.message进行捕获处理。可以try .. except配合使用比较方便 try...except on E:EOleException do begin datMgyf.ErrorHandle('你没有此操作的权限!'); datMgyf.gyfCnn.RollbackTrans ; Edit1.Enabled :=False; Time5.Enabled :=False; exit; end;end;这个错误信息不能捕到不是E:EOleException类的错误,有没有不分类的,而且能转成中文信息的 接上面的问题,总不能说每一类的都给它写个错误处理吧,有没有一个能代替on E:EOleException的东西呢. delphi打印发票问题 ■ 如何让新创建的MDI子窗口模态化■ delphi的组件是实际的组件吗?急 PWideChar与内存漏洞 如何清空一个字符串,并且判断一个字符串是否为空? 控件问题 请问在Canvas上画了许多图型对象,如何实现打印功能,急急。。 麻烦热心人帮忙调试段代码 这是什么原因? dbchekbox救命? 安装ADOExpress Update Pack2后回出另外的问题(急) 在重写TDBMemo控件时应如何写onexit过程
后者在finally后写无论是否出错,都必须执行的任务
procedure MyException(Sender:TObject; E:Exception);
在form的 oncreat中加入
Application.OnException := MyException;
然后在myexception中根据不同的e.classname,e.message进行捕获处理。
可以try .. except配合使用比较方便
...
except
on E:EOleException do begin
datMgyf.ErrorHandle('你没有此操作的权限!');
datMgyf.gyfCnn.RollbackTrans ;
Edit1.Enabled :=False;
Time5.Enabled :=False;
exit;
end;
end;
这个错误信息不能捕到不是E:EOleException类的错误,有没有不分类的,而且能转成中文信息的
on E:EOleException的东西呢.