2011计算机等考Delphi讲义：异常处理与程序调试

　　12.1.1 运行时间库异常类(RTL Exception)

　　运行时间库异常可以分为七类，它们都定义在SysUtils库单元中。

　　12.1.1.1 I/O异常

　　I/O异常类EInOutError是在程序运行中试图对文件或外设进行操作失败后产生的，它从Exception派生后增加了一个公有数据成员ErrorCode，用于保存所发生错误的代码。这一成员可用于在发生I/O异常后针对不同情况采取不同的对策。

　　当设置编译指示{$I- } 时，不产生I/O异常类而是把错误代码返回到预定义变量IOResult中。

　　12.1.1.2 堆异常

　　堆异常是在动态内存分配中产生的，包括两个类EOutOfMemory和EInvalidPointer。

　　表12.1　堆异常类及其产生原因

　　━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

　　异常类 引发原因

　　─────────────────────────────────

　　EOutOfMemory 没有足够的空间用于满足所要求的内存分配

　　EInvalidPointer 非法指针。一般是由于程序试图去释放一个业已释放的指针而引起的

　　━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

　　12.1.1.3　整数异常

　　整数异常都是从一个EIntError类派生的，但程序运行中引发的总是它的子类：EDivByZero，ERangeError，EIntOverFlow。

　　表12.2　整数异常及其产生原因

　　━━━━━━━━━━━━━━━━━━━━━

　　异常类 引发原因

　　─────────────────────

　　EDivByZero 试图被零除

　　ERangeError 整数表达式越界

　　EIntOverFlow 整数操作溢出

　　━━━━━━━━━━━━━━━━━━━━━━

　　ERangeError当一个整数表达式的值超过为一个特定整数类型分配的范围时引发。比如下面一段代码将引发一个ERangeError异常。

　　var

　　SmallNumber: ShortInt;

　　X , Y: Integer;

　　begin

　　X := 100;

　　Y := 75;

　　SmallNumber := X * Y;

　　end;

　　特定整数类型包括ShortInt、Byte以及与整数兼容的枚举类型、布尔类型等。例如：

　　type

　　THazard = ( Safety , Marginal , Critical , Catastrophic );

　　var

　　Haz: THazard;

　　Item: Integer;

　　begin

　　Item:= 4;

　　Haz:= THazard ( Item );

　　end;

　　由于枚举数越界而引发一个ERangeError异常。

　　数组元素越界也会引发一个ERangeError异常，如：

　　var

　　Values: array[1..10] of Integer;

　　i: Integer;

　　begin

　　for i := 1 to 11 do

　　Values[i] := i;

　　end;

　　ERangeError异常只有当类型检查打开时才会引发。这可以在代码中包含{$R+} 编译指示或设置IDE Option|Project的Range_Checking Option选择框。

　　EIntOverFlow异常类在Integer、Word、Longint三种整数类型越界时引发。如：

　　var

　　I : Integer;

　　a,b,c : Word;

　　begin

　　a := 10;

　　b := 20;

　　c := 1;

　　for I := 0 to 100 do

　　begin

　　c := a*b*c;

　　end;

　　end;

　　引发一个EIntOverFlow异常。

　　EIntOverFlow异常类只有在编译选择框Option|Project|Over_Flow_Check Option选中时才产生。当关闭溢出检查，则溢出后变量保留该类整数的最大范围值。