第7章 程序异常处理及调试技术.ppt

Delphi程序设计教程 * 第7章 程序异常处理与调试技术 7.1 异常处理 7.1.1 使用Try-Except语句处理异常 7.1.2 Try_Finally 结构 7.1.3 异常基类及其属性和主要方法 7.1.4 Raise语句和异常处理的重引发 7.2 程序调试 7.2.1 调试的准备 7.2.2控制程序的执行 7.2.3 使用断点　 7.3.4 监视数据的值　 小结 第7章 程序异常处理与调试技术 在Delphi中有两种程序错误，一种是编译错误，在程序编辑阶段就可以由 编译器发现并给出提示。另外一种是运行错误，这类错误不能在编译阶段查出 ，只能在程序执行时发现，称为运行错误。Delphi提供了一种机制来处理运行 错误，保护程序的正常执行，这种机制就是异常处理。异常处理的方法是把正 常的执行程序同错误的处理程序分离开来，这样可以保证在没有错误时，程序 正常执行，当发生错误时，执行错误处理部分的程序，然后程序跳出保护模块 ，继续执行后续的程序。 7.1 异常处理 对于在应用程序中经常产生的异常，Delphi都进行了定义。如在 SysUtils单元中定义了类型转换异常（EConvertError），数学异常 (EMathError)，输入输出异常（EInOutError）等；在ComCtrl单元定义了日 期异常（EDateTimeError），在Db单元中定义了数据库异常 (EDatabaseError)，等。因此只需在单元中引用这些系统库单元就可以处理这 些异常 7.1.1 使用Try-Except语句处理异常 Try_Except 的一般结构为： Try ．．．　　//需要进行异常检测的语句序列 Except ．．． //发生异常时的错误处理模块 End; //异常定义结束 数学异常类在系统的SysUtils中声明，其定义形式为： type EMathError= class (Exception)；//由Exception类派生，是所有浮点数据错误的基类 EInvalidOp= class (MathError)；//无效的操作的指令 EZeroDivide= class (MathError)；/被零除 EOverflow= class (MathError)；//浮点数操作上溢 EUnderflow= class (MathError)； //浮点数操作下溢 EinvalidArgument=class(MathError)；//无效的参数 End; 一般有三种处理方式： 1．不管发生什么异常，使用统一的错误处理方式 Try … //需要检测的语句，例如可以是 X:=Y/Z Except HandleALLException; End; 2．某些异常使用特殊的处理方式，而其余的异常使用统一的处理方式。 对于一些可以预测的错误，使用更为详细的处理方式。例如： Try … Except On EZeroDivide Do HandleZeroDivideError //处理被零除错误 On EOverflow Do HandleOverflowError //处理溢出错误 On EMathError Do HandleMathError //处理其他数学异常 Else HandleAllOtherError //前面没有被处理的异常则由该程序负责处理 End; 3．只检测某些错误异常，不管其他的异常情况。 7.1.2 Try_Finally 结构 Try_Fianally 的一般结构为： Try … //需要保护的程序语句序列 Finally … //一定执行的语句序列 End; 例如打开一个文件并进行处理，在处理完成后必须关闭文件。则可以使用 类似下面的结构。 Var TxtFile: TextFile; //定义文本文件变量存放打开的文件名字 Begin If (OpenDialog1.Execute ) Then //使用文件打开对话框 Begin Try AssignFile(TxtFile,OpenDialog1.FileName); //打开新选择的文件 Append(TxtFile); //设置文件为追加方式 Writeln(TxtFile,异常检测的例子