ch2objectpascal语法规范.ppt

“异常类型”说明： 为更好地处理异常，常在异常处理语句的“异常类型”前指定一个标识符，这个标识符在on...do后的语句执行期间表示异常对象，不过异常对象仅限于其后的一个语句。例如： try … 枣庄学院精品课程 “异常类型”说明： except on E:异常类名 do ShowMessage(E.Message); end; 这里，标识符E就是捕捉到的当前程序产生的异常对象名，它只能在这个on…do语句中使用。同时，在上面例子中使用了异常对象的Message属性，这个属性保存的是异常说明信息。 枣庄学院精品课程 异常类名 产生异常原因 Eabort 不显示异常信息对话框的异常 EheapException 定位堆栈内存产生的异常 EoutOfMemory 不能分配内存生成的异常 EinOutError 文件输入/输出错误产生的异常 Eexternal 外部错误造成的异常 EexternalException 运行期库中有无效的异常代码 EintError 所有整数运算产生异常的祖先类 EdivByZero 被0初，是EintError的派生类 ErangeError 范围错，是EintError的派生类 EIntoverflow 整数运算结果超出保存范围引起的异常，是EintError的派生类 EmathError 所有浮点运算错误的祖先类 EinvalidOp 处理器遇到没定义的指令，是EmathError的派生类 EOverflow 浮点运算结果太大，超出浮点数表示的范围，是EmathError的派生类 EUnderflow 数值太小而无法用浮点数表示引起的错误，是EmathError的派生类 EzeroDivide 被0整除，是EmathError的派生类 EInvalidArgument 参数出界，是EmathError的派生类 枣庄学院精品课程 现举一个使用try…except语句处理异常的例子，此例为Dos控制台程序，建立方法为: File→ New→ Other → New → Console Application → OK： 程序清单如下： program Project1; {$APPTYPE CONSOLE} uses SysUtils; var R1,R2:Double; 枣庄学院精品课程 begin while True do Begin try //设置陷井 write(输入一个实数:); readln(R1); write(输入另一个实数:); ReadLn(R2); writeln(现在用第二个数除第一个数); 枣庄学院精品课程 except // 捕捉错误 on EzeroDivide do // 处理被0除错误 writeln(不能被0除！); on EinOutError do //处理输入/出错误 writeln(不是有效数); end; end; end. 枣庄学院精品课程 2. try…finally语句 使用格式； try 语句序列1; finally 语句序列2; end; 功能：无论“语句序列1”是否出现异常，程序都将执行“语句序列2”。 枣庄学院精品课程 下面是使用这个语句程序清单： program try_finally; {$APPTYPE CONSOLE} uses SysUtils,dialogs; var F:TextFile; S: string; Begin AssignFile(F,c:\Foo.txt); Try //设置外层陷井， Reset(F); 枣庄学院精品课程 Try //置内层陷井 ReadLn(F,S); //读一行信息到S变量中 Finally CloseFile(F); //关闭文件 End; Except //处理外层陷井捕获的异常 on EInoutError do ShowMessage(访问文件错误!); End; ShowMessage(S); end. End． 枣庄学院精品课程 3. 方法覆盖（Overriding methods） 面向对象编程的多态概念是通过方法覆盖实现的。在派生类中定义方法时要使用override关键字代替父类定义方法时使用的virtual或dynamic关键字。 例如，下面派生类TForm1Child中定义的方法可覆盖上面例子中在类TForml中定义的Virt