delphi中异常的截获与其个性化处理.docVIP

　　【摘要】应用程序中的异常几乎是不可避免的，本文探讨了delphi的异常处理机制和异常处理的几种方法，并结合一些实例介绍如何根据应用程序的需要开发自己的异常处理程序。　　一、 异常及异常处理机制　　异常可以理解为一种特殊的事件，当这种特殊的事件发生时，程序正常的执行流程将被打断。异常处理机制能够确保在发生异常的情况下，应用程序不会中止运行，并且能以一致的风格进行处理。许多刚刚涉及delphi的程序员感觉异常处理机制高深莫测，是高级程序员的“专利”，总有尽可能绕开它的想法，因而不得不小心翼翼地检查每一次函数调用的返回值，或者通过额外的代码捕获可能的错误，即使这样，也只能保证程序代码不出错，而无法保证包括操作系统、设备驱动程序、数据库驱动程序、delphi自身的元件库和运行时间库在内的软硬件设备不出错。问题就在于，通过检查函数的返回值或设置错误陷阱只能捕获可预见的错误，如果出现没有预见到的错误，或者函数调用本身就已失败，程序正常的流程就会被打乱。由此可见，异常几乎是不可避免的。其实，object pascal提供了多种异常处理方法，使异常的处理变得轻而易举，可以将你从为你的应用程序执行的每个任务编写单独的错误处理程序的繁琐工作中解放出来。　　二、 处理异常的方法　　1． try...except 结构　　try...except 结构是这样工作的：try后面到except之前的语句通常是希望正常执行的代码，在执行过程中如果触发了异常，程序就跳入except部分。在except部分做出的处理可以有以下三种类型：　　(a) 不需要确切知道异常的类型，只需要做笼统的处理时，可以弹出一个警告信息框，或者释放已分配的资源，或者退出程序。程序示例如下：　　例1 procedure tform1.button1click(sender :tobject)　　var 　　num: integer;　　begin　　try　　num:=strtoint(edit1.text);　　edit2.text:=inttostr(num*num);　　except　　showmessage(edit1.text+无法转成整数!);　　end;　　end;　　该例中，点击button1后，程序试图将编辑框edit1中的内容转换为整型数，整数平方之后再转换成字符串类型数据，在编辑框edit2中显示。如果edit1.text是7.89，传递给strtoint将产生econverterror异常，因为7.89不是一个有效整数。异常产生后，将显示一条警告信息，并退出该过程。　　(b) 利用异常处理句柄处理某个特定的异常　　例如，在例1中可以针对econverterror异常做出如下的处理：　　例2 procedure tform1.button1click(sender :tobject)　　var 　　num: integer;　　begin　　try　　num:=strtoint(edit1.text);　　edit2.text:=inttostr(num*num);　　except　　on econverterror do showmessage(edit1.text+无法转成整数!);　　end;　　end;　　(c) 利用异常处理句柄处理多种异常　　通常，执行的代码不只产生一种异常，这就需要在except部分进行更具体的测试，根据产生的异常类型分别做出处理。现将例2稍加改动如下：　　例3 procedure tform1.button1click(sender :tobject)　　var 　　num: integer;　　begin　　try　　num:=strtoint(edit1.text);　　edit2.text:=inttostr(30 div num);　　except　　on econverterror do showmessage(edit1.text+无法转成整数!);　　on edivbyzero do　　begin　　 showmessage(除数不能为零！);　　 edit2.text:=0;　　end;　　end;　　end;　　在例3中，try部分的第一条语句可能产生econverterror 异常；当 num为零时，try 部分的第二条语句还会产生被零除的异常（即产生edivbyzero 异常）。由于产生异常原因不同，需要分别进行不同的处理。例3中的except 部分的代码也可以写成以下的形式，这两种异常处理的结果是一