delphi异和错误处理.docVIP

异常和错误处理（基于Delphi/VCL） 有人在看了我的“如何将界面代码和功能代码分离（基于Delphi/VCL）”之后，提到一个问题，就是如何对服务端的类的错误进行处理。 　　在基于函数的结构中，我们一般使用函数返回值来标明函数是否成功执行，并给出错误类型等信息。于是就会有如下形式的代码： 　　RetVal,,,,,,,,:=,,,,,,,,SomeFunctionToOpenFile(); 　　if,,,,,,,,RetVal,,,,,,,,=,,,,,,,,E_SUCCESSED,,,,,,,,then　　　　......　　else,,,,,,,,if,,,,,,,,RetVal,,,,,,,,=,,,,,,,,E_FILENOTFOUND,,,,,,,,then　　　　......　　else,,,,,,,,if,,,,,,,,RetVal,,,,,,,,=,,,,,,,,E_FILEFORMATERR,,,,,,,,then　　　　......　　else,,,,,,,,then　　　　...... 　　使用返回错误代码的方法是非常普遍的，但是使用这样的方法存在2个问题： 　　1、造成冗长、繁杂的分支结构（大量的if或case语句），使得控制流程变得复杂　　2、可能会有没有被处理的错误（函数调用者如果不判断返回值的话） 　　而异常是对于错误处理的面