delphi异常和错误处理.docx

异常和错误处理（基于Delphi/VCL ）

有人在看了我的“如何将界面代码和功能代码分离（基于Delphi/VCL）”之后，提到一个问题，就是如何对服务端的类的错误进行处理。

在基于函数的结构中，我们一般使用函数返回值来标明函数是否成功执行，并给出错误类型等信息。于是就会有如下形式的代码：

RetVal:=SomeFunctionToOpenFile();

ifRetVal=E_SUCCESSEDthen

......

elseifRetVal=E_FILENOTFOUNDthen

......

elseifRetVal=E_FILEFORMATERRthen

......

elsethen

......

使用返回错误代码的方法是非常普遍的，但是使用这样的方法存在2个问题：

1、造成冗长、繁杂的分支结构（大量的if或case语句），使得控制流程变得复杂

2、可能会有没有被处理的错误（函数调用者如果不判断返回值的话）

而异常是对于错误处理的面向对象的解决方案。它可以报告错误，但需要知道的是，并非由于错误而引发了异常，而仅仅是因为使用了raise。

在ObjectPascal中，抛出异常使用的是raise保留字。在任何时候（即使没有错误发生），

raise都将会导致异常的发生。

异常可以使得代码从异常发生处立刻返回，从而保护其下面的敏感代码不会得到执行。通过异常从函数返回和正常从函数返回（执行到函数末尾或执行了Exit）对于抛出异常的函数本

身来说是没有什么区别的。区别在于调用者处，通过异常返回后，执行权会被调用者的try...except块所捕获（如果它们存在的话）。如果调用者处没有try...except块的话，将不会继续

执行后续语句，而是返回更上层的调用者，直至找到能够处理该异常的try...except块。异常被处理后，将继续执行try...except块之后的语句，控制权就被留在了处理异常的这一层。当异常处理程序感觉对异常的处理还不够完整时，需要更上层调用者继续处理，可以重新抛出异常

（使用简单的raise;即可）将控制权交给更上层调用者。

如果根本就没有预设try...except块，则最终异常会被最外层的封装整个程序的VCL的try...except块所捕获。

因此，不会有不被处理的异常，换句话说，也就是不会有不被处理的错误（虽然错误和异常并不能划等号）。这也是异常机制比使用返回错误代码方法的优越之处。另外，异常被抛出后，其控制流程的走向非常清晰明了，不会造成流程失去控制的情况。

举个例子说明异常的工作机制，假设我们要打开某种特定格式的文件：

先定义两个异常类（从Exception继承）EFileNotFound=class(Exception);EFileFormatErr=class(Exception);

假设Form1上有一个按纽，按下按纽即打开文件：

procedureTForm1.Button1Click(Sender:TObject);begin

try

ToOpenFile();except

onEFileNotFounddo

ShowMessage(Sorry,Icantfindthefile);onEFileFormatErrdo

ShowMessage(Sorry,thefileisnottheoneIwant);onE:Exceptiondo

ShowMessage(E.Message);

end;end;

以及打开文件的功能函数：procedureToOpenFile;varRetVal:Integer;begin

//SomecodetoopenfileRetVal:=-1;//openfailed

ifRetVal=0then//successExit

elseifRetVal=-1then

RaiseEFileNotFound.Create(Filenotfound)

elseifRetVal=-2then

RaiseEFileFormatErr.Create(Fileformaterror)

else//othererror

RaiseException.Create(Unknownerror);

end;

程序中TForm1.Button1Click调用ToOpenFile，并预设了对ToOpenFile可能抛出的异常处理的try...except。当然，也可以对TForm1.Button