DELPHI基础教程：异常处理与程序调试（二）[2]

下面的代码同时使用了异常响应和异常保护 异常响应用于设置变量的值 异常保护用于释放资源 当异常响应结束时利用raise重引发一个当前异常

var

APointer: Pointer

AInt ADiv: Integer

begin

ADiv :=

GetMem （ APointer ）

try

try

AInt := div ADiv

except

on EDivByZero do

begin

AInt :=

raise

end

end

finally

FreeMem （ APointer ）

end

end

上面一段代码体现了异常处理的嵌套 异常保护 异常响应可以单独嵌套也可以如上例所示的那样相互嵌套

自定义异常类的应用

利用Delphi的异常类机制我们可以定义自己的异常类来处理程序执行中的异常情况 同标准异常不同的是 这种异常情况并不是相对于系统的正常运行 而是应用程序的预设定状态 比如输入一个非法的口令 输入数据值超出设定范围 计算结果偏离预计值等等

使用自定义异常需要

自己定义一个异常对象类

自己引发一个异常

定义异常对象类

异常是对象 所以定义一类新的异常同定义一个新的对象类型并无太大区别 由于缺省异常处理只处理从Exception或Exception子类继承的对象 因而自定义异常类应该作为Exception或其它标准异常类的子类 这样 假如在一个模块中引发了一个新定义的异常 而这个模块并没有包含对应的异常响应 则缺省异常处理机制将响应该异常 显示一个包含异常类名称和错误信息的消息框

下面是一个异常类的定义

type

EMyException = Class（Exception）

自引发异常

引发一个异常 调用保留字raise 后边跟一个异常类的实例

假如定义

type

EPasswordInvalid = Class（Exception）

则在程序中如下的语句将引发一个EPasswordInvalid异常

If Password <>CorrectPassword then

raise EPasswordInvalid Create（ Incorrect Password entered ）

异常产生时把System库单元中定义的变量ErrorAddr的值置为应用程序产生异常处的地址 在你的异常处理过程中可以引用ErrorAddr的值

在自己引发一个异常时 同样可以为ErrorAddr分配一个值

为异常分配一个错误地址需要使用保留字at 使用格式如下

raise EInstance at Address_Expession

自定义异常的应用举例

下面我们给出一个利用自定义异常编程的完整实例

两个标签框（Label Label ）标示对应编辑框的功能 编辑框PassWord和InputEdit用于输入口令和数字 程序启动时Label InputEdit不可见 当在PassWord中输入正确的口令时 Label InputBox出现在屏幕上 此时Label PassWord隐藏

设计时 令Label InputEdit的Visible属性为False 通过设置PassWord的PassWordChar可以确定输入口令时回显在屏幕上的字符

自定义异常EInvalidPassWord和EInvalidInput分别用于表示输入的口令非法和数字非法 它们都是自定义异常EInValidation的子类 而EInValidation直接从Exception异常类派生

下面是三个异常类的定义

type

EInValidation = class（Exception）

public

ErrorCode: Integer

constructor Create（Const Msg: StringErrorNum: Integer）

end

EInvalidPassWord = class（EInValidation）

public

constructor Create

end

EInvalidInput = class（EInValidation）

public

constructor Create（ErrorNum: Integer）

end

EInValidation增加了一个公有成员ErrorCode来保存错误代码 错误代码的增加提供了很大的编程灵活性 对于异常类 可以根据错误代码提供不同的错误信息 对于使用者可以通过截取错误代码 在try…except模块之外来处理异常

从以上定义可以发现 EInvalidPassWord和EInvalidInput的构造函数参数表中没有表示错误信息的参数 事实上 它们保存在构造函数内部 下面是三个自定义异常类构造函数的实现代码

constructor EInValidation Create（Const Msg: StringErrorNum: Integer）

begin

inherited Create（Msg）

ErrorCode := ErrorNum

end

constructor EInValidPassWord Create

begin

inherited Create（ Invalid Password Entered ）

end

constructor EInValidInput Create（ErrorNum: Integer）

var

Msg: String

begin

case ErrorNum of

:

Msg := Can not convert String to Number

:

Msg := Number is out of Range

else

Msg := Input is Invalid

end

inherited Create（Msg ErrorNum）

end

对于EInvalidInput ErrorCode= 表示输入的不是纯数字序列 而ErrorCode= 表示输入数值越界

lishixinzhi/Article/program/Delphi/201311/25189

调试源码，通常是由于源代码有错误，或是需要跟踪代码的执行过程。

在 delphi 里可以通过编译运行源码后出错，自动进入调试状态；或是在 IDE 源代码指定位置下断点，再运行后触发断点后进入调试状态。

进入调试状态后，可以用 F7、F8 单步执行，在此过程中，可以通过将鼠标移动到源码的变量名称上，来获取当前变量的运行时刻的值，也可以在调试窗口中查看变量的值。

---