Delphi异常处理try except语句和try

《Delphi异常处理try except语句和try》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、Delphi异常处理tryexcept语句和tryfinally语句用法以及区别一、异常的来源　　在Delphi的应用程序中，下列的情况都比较有可能产生异常。　　　　（1）文件处理　　　　（2）内存分配　　　　（3）Windows资源　　　（4）运行时创建对象和窗体　　　　（5）硬件和操作系统冲突　　　　　二、异常的处理　　（1）try…except…end;　　　　在try体内的代码发生异常时，系统将转向except部分进行异常的处理。这是Delphi处理异常的最基本的方式之一。　　　　（2）try…finally…end;　　　　这种异常处理结构一般用于保护Windows的资源分配等方

2、面，它确保了无论try体内的代码是否发生异常，都需要由系统进行最后的统一处理的一些Windows对象的正确处理。　　　　和try…except…end不同，该结构的finally部分总被执行。　　　　（3）不存在try…except…finally…end结构来既处理异常，又保护资源分配的结构，但是，try…except…end结构允许嵌套到try…finally…end结构中，从而实现既处理异常，又保护资源的分配。　　　　三、异常的精确处理　　（1）定义一个异常。　　　　在Delphi中，每个异常都是Exception[1]类的一个派生类[2]。因此，定义一个异常就是定义一个Except

3、ion类的派生类。　　　　typeEMyException=class(Exception);　　　　当然，基类可以是Exception或者Exception的任何一个任何层次的派生类。　　　　（2）在程序中抛出一个异常。　　　　根据不同的情况抛出异常是使用异常的最基本的模式。在Delphi中，由raise语句来实现。　　　　　　（3）在try…except…end中更加精确的捕捉异常。　　　　使用onE:异常类do…结构可以在do体内处理特定异常类所抛出的异常。　　　　四、异常的调试　　在DelphiIDE中，解除“DebuggerOptions”（可以使用菜单Tools—>Debugg

4、erOptions…进行访问）中的IntegratedDebugging复选框的勾选状态可以进行异常的调试。　　　　五、异常的补充说明　　（1）每一段程序都有可能产生错误！这是软件业的一个不容置疑的现象和规律。事实上，传统的if…else…结构完全可以解决所有的错误，使用Exception机制也没能够回避在最原始的层次，通过遍历可能的情况来产生异常的做法，那么，为什么还要异常机制？　　　　答案很清楚：异常提供了一种更加灵活和开放的方式，使得后来的编程者可以来根据实际的情况处理这种错误，而不是使用预先设定好的处理结果。Delphi7异常处理了解什么是异常和Delphi7中提供的异常类掌握De

5、lphi7环境下自定义异常的方法和异常处理的语法结构与实现.异常:理解为一种特殊的事件,该事件发生时,程序的正常执行将被打断.由程序导致的不正常情况是错误而不是异常,程序错误与异常不是相同的概念.异常是为方便用户报告错误并处理错误而创建的机制,一般是由操作系统完成的.运行期错误处理软件开发过程中,程序员必须提供适度的方式来处理不可避免的错误.一般方法如下:1传统方法2使用异常进行错误处理传统方法在Pascal早期版本中,程序员必须借助编译器开关和状态变量去检测和处理存在的错误.{$I-}{此编译器指令关闭I/O检测}Assign(InFile,InputName);Reset(InFile

6、);{$I+}{此编译器指令恢复I/O检测}IfIOResult0then{错误处理代码};使用异常进行错误处理结构化异常处理是Delphi语言内建的特性.为我们处理异常提供了方便.处理异常有两方面:1异常处理可确保适当地恢复在应用程序中分配或改变的任何资源.2结构化异常处理为开发人员提供了一种一致的处理各种类型运行期错误的方式Delphi7异常处理机制异常处理的基本思想是通过提供规范方式处理软,硬件错误的能力,使程序更加健壮.异常处理可以将处理错误的代码与正常的逻辑处理代码相分离.Delphi缺省的方式是在应用程序收到异常之前捕获异常.IDE会给出一个”预警”对话框,以指明应用程序将要产

7、生异常.异常处理机制是一种程序设计安全策略,它是建立在保护块思想上,通过try和end语句块对代码的封装确保在程序发生异常时,程序能够正常运行或释放所占用的资源.Delphi7异常处理机制传统程序设计中,用如下的伪代码方法来检查和处理程序错误:执行一个任务If前一个任务未能正确执行执行错误处理执行下一个任务If前一个任务未能正确执行执行错误处理……Delphi7异常处理机制例;tryAge:=StrToInt(Edit1