第8章 程序异常处理与调试技术.pptVIP

Delphi提供了一种机制来处理运行错误，保护程序的正常执行，这种机制就是异常处理。 异常处理的方法是把正常的执行程序同错误的处理程序分离开来，这样可以保证在没有错误时，程序正常执行，当发生错误时，执行错误处理部分的程序，然后程序跳出保护模块，继续执行后续的程序。 8.1 异常处理结构 对于在应用程序中经常产生的异常，Delphi都进行了定义: 在SysUtils单元中定义了: 类型转换异常（EConvertError）， 数学异常(EMathError)， 输入输出异常（EInOutError）等； 在ComCtrl单元定义了:日期异常（EDateTimeError）， 在Db单元中定义了:数据库异常(EDatabaseError)，等。 因此只需在单元中引用这些系统库单元就可以处理这些异常 procedure TForm1.Button1Click(Sender: TObject); var i,x,y:integer; j:string; begin x:=1; y:=0; //变量赋初值 try i:=x div y; j:=inttostr(i); showmessage(j); //显示正确的结果 except showmessage(发生错误!); //处理其他错误 end; end; 数学异常类在系统的SysUtils中声明，其定义形式为： type EMathError= class (Exception)；//由Exception类派生，是所有浮点数据错误的基类 EInvalidOp= class (MathError)；//无效的操作的指令 EZeroDivide= class (MathError)；/被零除 EOverflow= class (MathError)；//浮点数操作上溢 EUnderflow= class (MathError)； //浮点数操作下溢 EinvalidArgument=class(MathError)；//无效的参数 End; 3．某些异常使用特殊的处理方式，而其余的异常使用统一的处理方式。 对于一些可以预测的错误，使用更为详细的处理方式。例如： Try … Except On EZeroDivide Do HandleZeroDivideError //处理被零除错误 On EOverflow Do HandleOverflowError //处理溢出错误 On EMathError Do HandleMathError //处理其他数学异常 Else HandleAllOtherError //前面没有被处理的异常则由该程序负责处理 End; Var TxtFile: TextFile; //定义文本文件变量存放打开的文件名字 Begin If (OpenDialog1.Execute) Then //使用文件打开对话框 Begin Try AssignFile(TxtFile,OpenDialog1.FileName); //打开新选择的文件 Append(TxtFile); //设置文件为追加方式 Writeln(TxtFile,’异常检测的例子‘); //向文件中添加一行文本 Flush(TxtFile); //保证新内容写入文件 finally CloseFile(TxtFile); //关闭打开的文件 end; end; end; 2．exception方法 (1)Exception.Create方法 (2)Exception.CreateFmt方法 (3)Exception.CreatHelp方法 function beInt(const strVal: string): boolean; begin try StrToInt(trim(strVal)); Result := true; except Result := false; //表示结果不正确 raise; //再次提交异常异常重引发 end; end; procedure TForm1.Button1Click(Sender: TObject); var x,y,z:single; begin y:=100; z:=0;