新手问题2号：在DELPHI中如何进行一般错误处理。

Question

try
except
end;try
finally
end;  

Answer 1

前者在except后写上万一出错后执行的任务；
后者在finally后写无论是否出错，都必须执行的任务

Answer 2

建立一个procedure 
procedure MyException(Sender:TObject; E:Exception);
在form的 oncreat中加入 
Application.OnException := MyException;
然后在myexception中根据不同的e.classname,e.message进行捕获处理。
可以try  .. except配合使用比较方便

Answer 3

try
...
except
  on E:EOleException do begin
           datMgyf.ErrorHandle('你没有此操作的权限!');
           datMgyf.gyfCnn.RollbackTrans ;
           Edit1.Enabled :=False;
           Time5.Enabled :=False;
           exit;
  end;
end;
这个错误信息不能捕到不是E:EOleException类的错误，有没有不分类的，而且能转成中文信息的

Answer 4

接上面的问题，总不能说每一类的都给它写个错误处理吧，有没有一个能代替
on E:EOleException的东西呢.