Delphi_异常处理_详解(全).txt Delphi 异常处理 详解 [1] Exception 类的定义在SysUtils 单元中。 [2] Delphi 也支持不从Exception 继承的异常类，但是我觉得这么做并不十分的明智。 一、异常的来源 在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 机制也没能够回避在最原始的层次，通过遍历可能的情况来产生异常的做法，那么，为什么还要异常机制？ 答案很清楚：异常提供了一种更加灵活和开放的方式，使得...
