delphi try except语句 和 try finally语句用法以及区别

一、异常的来源
　　什么是异常程序开发过程中,有编译期错误和运行期错误,编译期错误很容易发现,而运行期错误(逻辑错误和异常)往往很难预料.为了程序的稳定性和可靠性,就需要对程序异常处理和保护.
　　异常:理解为一种特殊的事件,该事件发生时,程序的正常执行将被打断.由程序导致的不正常情况是错误而不是异常,程序错误与异常不是相同的概念.异常是为方便用户报告错误并处理错误而创建的机制,一般是由操作系统完成的.运行期错误处理
　　在Delphi的应用程序中，下列的情况都比较有可能产生异常。
　　（1）文件处理　　
　　（2）内存分配　　
　　（3）Windows资源　
　　（4）运行时创建对象和窗体　　
　　（5）硬件和操作系统冲突

二、异常的处理
　　（1）try…except…end;　　
　　在try体内的代码发生异常时，系统将转向except部分进行异常的处理。这是Delphi处理异常的最基本的方式之一。
　　
　　（2）try…finally…end;　　
　　这种异常处理结构一般用于保护Windows的资源分配等方面，它确保了无论try体内的代码是否发生异常，都需要由系统进行最后的统一处理的一些Windows对象的正确处理。　　
　　和try…except…end不同，该结构的finally部分总被执行。

　　（3）不存在try…except…finally…end结构来既处理异常，又保护资源分配的结构，但是，try…except…end结构允许嵌套到try…finally…end结构中，从而实现既处理异常，又保护资源的分配。
　　
三、异常的精确处理
　　（1）定义一个异常。　　
　　在Delphi中，每个异常都是Exception[1]类的一个派生类[2]。因此，定义一个异常就是定义一个Exception类的派生类。　　
　　type EMyException = class(Exception);　　
　　当然，基类可以是Exception或者Exception的任何一个任何层次的派生类。
　　
　　（2）在程序中抛出一个异常。　　
　　根据不同的情况抛出异常是使用异常的最基本的模式。在Delphi中，由raise语句来实现。　　
　　【语法】raise 异常类.Create(‘异常的缺省说明’);
　　
　　（3）在try…except…end中更加精确的捕捉异常。　　
　　使用on E:异常类 do…结构可以在do体内处理特定异常类所抛出的异常。
　　
四、异常的调试
　　在Delphi IDE中，解除“Debugger Options”（可以使用菜单Tools—>Debugger Options…进行访问）中的Integrated Debugging复选框的勾选状态可以进行异常的调试。
　　
五、异常的补充说明
　　（1）每一段程序都有可能产生错误！这是软件业的一个不容置疑的现象和规律。事实上，传统的if…else…结构完全可以解决所有的错误，使用Exception机制也没能够回避在最原始的层次，通过遍历可能的情况来产生异常的做法，那么，为什么还要异常机制

示例：

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

try//尝试执行     {SomeCode}   except//出错的时候执行, Except有特定的错误类型      {SomeCode}   end;   try//尝试执行 {SomeCode}   finally//无论如何都强制执行 {SomeCode}   end;   例: try     Age:=StrToInt(Edit1.Text);     ShowMessage(Format('生于%d年',[YearOf(Now)-Age])); except     on EConvertError do         showmessage('输入编辑框的不是一个有效的数字!');     on ERangeError do         showmessage('输入编辑框的年龄值太大!'); end;

　抛出异常代码

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

begin   raise Exception.Create('抛出异常'); end; //例2: begin   raise Exception.CreateFmt('%s %d', ['错误代码:', 999]); end;   //例3: var   exc: Exception; begin   exc := Exception.Create('发现异常');   raise exc; end;