第9章Delphi教程.pptVIP

9.3.2 异常处理实例 上一节介绍了Delphi系统的异常处理机制，下面介绍如何使用异常处理机制来处理程序中的系统异常和自定义异常。 1.系统异常处理 当程序出现系统异常时，直接调用程序中的异常处理语句即可。下面通过例子说明系统异常的处理方法。 【例9-2】已知如下程序代码会产生除0异常，使用异常处理语句处理异常情况。 program Project1; uses SysUtils; var x,y,z:integer; begin write(Input x:); readln(x); write(Input y:); readln(y); z := x div y; write(z=,z); readln; end. 以上代码表示对两个整数进行整除运算并显示结果。如果输入的除数为0，将产生如下图所示的异常现象。 程序出现异常 当出现上图所示的情况时，不但程序不能正常运行，而且难以从提示中获得程序出错原因。为此，在程序设计时必须为可能出现异常的代码添加异常处理语句。下面添加代码对程序中的整除语句进行保护，修改后的代码如下： program Project1; uses SysUtils; var x,y,z:integer; begin write(Input x:); readln(x); write(Input y:); readln(y); try //异常处理代码开始 z := x div y; write(z=,z); except //异常处理模块开始 on EDivByZero do begin //异常类型 writeln(div by zero); end; end; //异常处理模块结束 readln; end. 以上代码表示，如果输入的除数为0，则显示div by zero，并退出程序，如下图所示。 在上面的代码中，EDivByZero是系统事先定义好的常量，用于表示异常的类型，可以直接使用该常量来描述异常。关于系统异常的更多内容，读者可以查阅相关书籍。 【例9-2】添加异常处理语句的效果 2.用户定义异常 在Delphi系统中，使用用户定义异常处理的操作步骤如下： （1）声明异常对象。在Delphi系统中，所有异常对象都源于Exception类，声明异常类型的格式如下： type 异常对象名称 = class(Exception); （2）抛出异常。在【例9-2】中，由于EDivByZero异常是系统异常，所以程序中的异常处理函数可以直接俘获该异常并进行处理。 但是，自定义异常必须使用raise语句抛出，这样异常处理函数才能俘获该异常并处理。raise语句的格式如下： raise 异常对象名称.Create(定义异常。)； 其中，raise为保留字，定义异常需要使用Create方法，Create方法中的参数是字符串，起到异常说明的作用。 （3）处理异常。使用except语句俘获异常后，即可以转入相应处理过程进行异常处理。 下面给出实例说明定义异常的处理方法。 【例9-3】编写程序，输入学生成绩，当成绩大于100或小于0时，转入异常处理。 这里假设学生成绩为百分制，高于100分和低于0分的成绩都是错误的，由于Delphi系统没有对成绩进行异常定义，所以用户可以声明一个名为EScoreException的异常对象，当输入的成绩高于100或低于0时，程序抛出EScoreException异常对象进行处理。参考代码如下： program Project1; uses SysUtils; type EScoreException = class(Exception); var x:integer; begin try write(Please input score:); readln(x); if x 100 then raise EScoreException.Create(Score Exception) else if x 0 then begin raise EScoreException.Create(Score Exception); end else begin write(x); readln;