delphi 里面的try问题
异常处理语句,有两种
第一种
try
d := 6 div 0; //明显错误,会抛出异常.除数不能为0
except
on E:Exception do
ShowMessage(e.message); // 在这里处理你的异常,我这里显示出错误消息,当然可以自己定义
end;
第二种
a := TStringList.create
try
a.add('1');
Showmessage(a.strings[2]); //明显错误,程序异常中断不使用异常处理代码的将不会执行到a.free,如果使用了try ..finally..end; 不管异常是否出现都将释放资源
finally
a.free; //释放
end;
懒的给你写了,帮你找了点资料
一、异常的来源
在Delphi的应用程序中,下列的情况都比较有可能产生异常。
(1)文件处理
(2)内存分配
(3)Windows资源
(4)运行时创建对象和窗体
(5)硬件和操作系统冲突
二、异常的处理
(1)try…except…end;
在try体内的代码发生异常时,系统将转向except部分进行异常的处理。这是Delphi处理异常的最基本的方式之一。
(2)try…finally…end;
这种异常处理结构一般用于保护Windows的资源分配等方面,它确保了无论try体内的代码是否发生异常,都需要由系统进行最后的统一处理的一些Windows对象的正确处理。
和try…except…end不同,该结构的finally部分总被执行。
(3)不存在try…except…finally…end结构来既处理异常,又保护资源分配的结构,但是,try…except…end结构允许嵌套到try…finally…end结构中,从而实现既处理异常,又保护资源的分配。
三、异常的精确处理
(1)定义一个异常。
在Delphi中,每个异常都是Exception[1]类的一个派生类[2]。因此,定义一个异常就是定义一个Exception类的派生类。
type EMyException = class(Exception);
当然,基类可以是Exception或者Exception的任何一个任何层次的派生类。
(2)在程序中抛出一个异常。
根据不同的情况抛出异常是使用异常的最基本的模式。在Delphi中,由raise语句来实现。
【语法】raise 异常类.Create(‘异常的缺省说明’);
(3)在try…except…end中更加精确的捕捉异常。
使用on E:异常类 do…结构可以在do体内处理特定异常类所抛出的异常。
四、异常的调试
在Delphi IDE中,解除“Debugger Options”(可以使用菜单Tools—>Debugger Options…进行访问)中的Integrated Debugging复选框的勾选状态可以进行异常的调试。
五、异常的补充说明
(1)每一段程序都有可能产生错误!这是软件业的一个不容置疑的现象和规律。事实上,传统的if…else…结构完全可以解决所有的错误,使用Exception机制也没能够回避在最原始的层次,通过遍历可能的情况来产生异常的做法,那么,为什么还要异常机制?
答案很清楚:异常提供了一种更加灵活和开放的方式,使得后来的编程者可以来根据实际的情况处理这种错误,而不是使用预先设定好的处理结果。
Delphi7异常处理
了解什么是异常和Delphi7中提供的异常类
掌握Delphi7环境下自定义异常的方法和异常
处理的语法结构与实现
异常
什么是异常
程序开发过程中,有编译期错误和运行期错误,编译期错误很容易发现,而运行期错误(逻辑错误和异常)往往很难预料.为了程序的稳定性和可靠性,就需要对程序异常处理和保护.
异常:理解为一种特殊的事件,该事件发生时,程序的正常执行将被打断.
由程序导致的不正常情况是错误而不是异常,程序错误与异常不是相同的概念.
异常是为方便用户报告错误并处理错误而创建的机制,一般是由操作系统完成的.
运行期错误处理
软件开发过程中,程序员必须提供适度的方式来处理不可避免的错误.一般方法如下:
1 传统方法
2 使用异常进行错误处理
传统方法
在Pascal早期版本中,程序员必须借助编译器开关和状态变量去检测和处理存在的错误.
{$I-}{此编译器指令关闭I/O检测}
Assign(InFile,InputName);
Reset(InFile);
{$I+}{此编译器指令恢复I/O检测}
If IOResult0 then
{错误处理代码};
使用异常进行错误处理
结构化异常处理是Delphi语言内建的特性.为我们处理异常提供了方便.处理异常有两方面:
1 异常处理可确保适当地恢复在应用程序中分配或改变的任何资源.
2 结构化异常处理为开发人员提供了一种一致的处理各种类型运行期错误的方式
Delphi7异常处理机制
异常处理的基本思想是通过提供规范方式处理软,硬件错误的能力,使程序更加健壮.
异常处理可以将处理错误的代码与正常的逻辑处理代码相分离.
Delphi缺省的方式是在应用程序收到异常之前捕获异常.IDE会给出一个”预警”对话框,以指明应用程序将要产生异常.
异常处理机制是一种程序设计安全策略,它是建立在保护块思想上,通过try和end语句块对代码的封装确保在程序发生异常时,程序能够正常运行或释放所占用的资源.
Delphi7异常处理机制
传统程序设计中,用如下的伪代码方法来检查和处理程序错误:
执行一个任务
If 前一个任务未能正确执行
执行错误处理
执行下一个任务
If 前一个任务未能正确执行
执行错误处理
……
Delphi7异常处理机制
例;
try
Age := StrToInt(Edit1.Text);
ShowMessage(Format('生于%d年', [YearOf(Now) - Age]));
except
on EConvertError do
showmessage('输入编辑框的不是一个有效的数字!');
on ERangeError do
showmessage('输入编辑框的年龄值太大!');
end;异常类
Delphi7根据异常类型定义了相应的异常类.所有异常类的基类都是Exception类.
Delphi7内置了大量的异常类,用户也可以通过Exception类自定义异常类.
记住异常类的要点:
1 异常类是响应不同异常现象的入口.
2 熟悉异常类的层次结构.
Exception异常类
Exception是所有异常类的基类,它并不是以’T'开头,而是以’E'开头,它的派生类也是以’E'开头的.
Exception类定义于SysUtils单元中.
Exception类最常用的方法是Create方法:
Constructor Create(const Msg:string);
Exception.Create(‘我自己创建的异常!’);
该方法用于创建一个异常类的实例,也可以显示错误信息,也可直接用这个方法提交一个异常
raise Exception.Create(‘我抛出的异常!’);
例:
try
raise Exception.Create('我抛出的异常!');
except
on E: Exception do
showmessage('异常类名称:' + E.ClassName
+ #13#10 + '异常信息:' + E.Message);
end;Delphi7内置的异常类
Delphi7根据异常现象的类型定义了相应的异常类,这些异常类又称为Delphi7内置的异常类.
具体分为运行时库异常类,对象异常类和组件异常类三大类.
运行时库异常类(RTL)
运行时库异常类可分为以下几种:
1 整数计算异常 2 浮点计算异常 3 硬件异常 4 堆异常 5 输入输出异常(I/O异常) 6 字符转换异常 7 类型转换异常 8 哑异常
整数计算异常
EIntError 整数计算异常(基类)
EDivByZero 整数除0溢处
EIntOverFlow 整数溢出
ERangeError 整数越界
浮点计算异常
EMathError 浮点计算异常(基类)
EInvalidOp 无效浮点操作指令
Eoverflow 浮点操作上溢
Eunderflow 浮点操作下溢
EZeroDivide 浮点计算除0
硬件异常
EProcessorException 硬件异常(基类)
ESingleStep 应用程序产生单步中断
Ebreakpoint 应用程序产生断点中断
Efault 故障(继承EProcessorException,也是基类)
EStackFault 对处理器栈段的非法访问
EPageFault 内存管理器无法正确使用交换文件
EGPFault 保护性错误,一般由未初始化指针或对象造成
EInvalidOpCode 处理器遇到未定义指令
堆异常和(I/O异常)
堆异常:
EOutOfMemory 堆中没有足够的内存完成操作
EInvalidPointer 试图访问一个堆外的指针
(I/O异常)
EInOutError DOS输入/输出错误
字符转换/类型转换异常和哑异常
字符转换异常
EConvertError 数字到字符串或字符串到数
字转换错误
类型转换异常
EInvalidCast 类型转换异常
哑异常
EAbort 调用Abort产生,不显示错误提示框
对象异常类
对象异常类是针对非组件对象引发的异常而定义的.
对象异常类包括:
1 流异常类
2 打印异常类
3 图形异常类
4 字符串链表异常类
流异常类
流异常是指在程序中进行与流相关的操作时产生的异常.流异常类的基类是EStreamError,其他流异常类都直接或间接从它派生.
派生关系见书48页图
打印异常
打印异常是由于应用程序向不存在的打印机发送打印命令或由于某种原因打印工作无法送到打印机时引发的.
打印异常类为Eprinter,定义于Printers单元
图形异常
图形异常主要包括EInvalidGraphic和
EInvalidGraphicOperation两个类均定义于Graphics单元
EInvalidGraphic异常满足下列情况之一时引发:
当应用程序试图向一个并不包含合法的位图,图象,元文件或用户自定义图形类型的文件中装入图象时.
当应用程序试图装入不可识别扩展名的文件时
当图象与LoadFromClipboardFormat或SaveToClipboardFormat中的格式不匹配时.
当应用程序试图将图象的PixelFormat设为不支持的值
EInvalidGraphicOperation异常在满足下列条件之一时发生:
应用程序访问图象中不存在的扫描线时.
应用程序不能成功写入图象时.
应用程序在画布未处于有效状态时进行绘制.
应用程序装入未知或不支持的图象格式时.
应用程序将图象的PixelFormat设为不支持的值时
不能分配该操作的句柄时.
字符串链表异常
字符串链表异常是由于用户对字符串链表进行非法操作时引发的.
包括EStringListError,EListError等.由于许多部件都有一个Tstrings抽象类的属性(如Tiistbox组件的Items属性等),因而字符串链表异常在组件编程中很重要.
EStringListError一般在字符串链表越界时产生.而EListError异常通常在以下情况下发生:
当索引项超出链表范围时
当字符串链表的Duplicates属性设置为dupError
同时应用程序试图加入一个重复的字符串时.
当向已排序的字符串链表中插入字符串时.
组件异常类
组件异常类用于响应组件异常,组件异常是由于对VCL组件进行操作时,违反了组件的使用规则及其特征而引发的,可分为两大类:
通用组件异常、专用组件异常、通用组件异常。
常见的有非法操作异常,组件异常和资源不足异常三种类型,对应于EInvalidOpetation,EComponentError和EOutOfResource异常类.
引发非法操作异常的原因有:
应用程序试图对Parent属性为nil的组件进行一些需要窗口句柄的操作.
试图对窗体拖放操作.
引发组件异常的原因有:
Delphi不能注册某个组件
应用程序不能重命名某个组件
资源不足异常被引发是由于当应用程序试图创建窗口句柄而操作系统没有多余的句柄可分配
专用组件异常:许多组件都定义了相应的组件异常类.
列出几个典型的组件异常类:
EMenuError异常,菜单异常,是由于程序对菜单的非法操作而引发的.定义于Memus单元
EInvalidGridOperation异常.非法的网格操作,如试图引用一个不存在的网格单元时引发.定义于Grids单元
EDatabaseError异常.数据库异常是由于对数据库的非法操作引起的.
用户自定义异常类
创建用户自定义异常类的方法
抛出自定义异常
用户自定义异常类与内置异常类的区别
异常类对象与其他类对象的区别
创建用户自定义异常类的方法
选择Exception作为基类,按照定义类的一般方法,建立自定义的异常类就可以了.
如:
type
EMyException = class(Exception)
//需要定义属性或方法时,写在此处即可
end;抛出自定义异常
Delphi不会管理用户自定义异常的抛出,程序员必须自己抛出自己创建的异常.用raise语句可抛出异常:
raise EMyException.Create('My Exception');用户自定义异常类与内置异常类的区别
Delphi不会自动响应用户自定义的异常类,所以用户自定义的异常类需要使用raise语句抛出,而内置异常类与运行期真实的异常现象相对应,当异常发生时,操作系统会捕捉到此异常,通知Delphi去响应.
异常类对象与其他类对象的区别
异常类对象创建后,不需要由用户释放它,当异常处理之后,系统会自动调用析构函数释放异常类对象.而其他类需要由用户来释放.
Delphi7的异常处理结构
try…finally 语句块
Try…except语句块
使用raise抛出异常
try…finally 语句块
try…finally 语句块是用于资源保护和恢复系统状态,不管try部分的操作是否有异常发生,finally部分的操作都要进行.
语法如下:
try
被保护语句
finally
处理语句(无论异常是否发生,都必须处理)
end;try…finally 语句块主要用于资源保护
应用程序向系统申请了资源(如内存,图形句柄),当不需要这些资源时,就应该及时释放资源.
句柄:系统资源是有限的,一般构成一个资源链,链的长度是有限的,当系统给应用程序分配资源时,给每个资源设置一个ID号,这个ID号就是句柄.(系统资源相当于一个个房间,而句柄就相当于房间号.)
句柄有限:1 资源是有限的;2数字表达的范围也是有限的(整数有范围的)
Try…except语句块
Try…except语句块用于运行期错误处理,程序员可以用它编写对不同类型异常的处理.
异常发生后,判断异常的类型,正确处理异常.
Try…except语句块一般和On…Do子句连用;
语法如下:
function Test(x, y: Real): Real;
begin
try
Result := x / y;//被保护语句
except
on EInvalidOp do Result := 0;//异常处理语句
on EZeroDivide do Result := 0;
on EOverFlow do Result := 0;
on EUnderFlow do Result := 0;
end;
end;Try…except语句块主要处理 缺省异常
用户一般只处理一些特殊的异常,并不是处理所有的异常.对那些用户不关心的异常就可以采用缺省异常来处理.
try
//正常程序代码
except
on EExceptionClass do //处理特定类型的异常
else //缺省异常处理
end;注:else块必须位于except块的最后,可响应任何类型的异常
异常的传递
Delphi对异常的处理方式是向后扫描程序的调用栈.假如过程A内有过程保护代码块,在此代码块内又调用了过程B,过程B没有异常保护,过程B调用了过程C,在C内发生了异常.如C内有该异常的处理程序,那么程序调用C的异常处理代码
2、在异常处理语句中,ShowMessage();要求的参数是字符串形式,showmessage('我不知道你输入的是什么东西!');这个语法上没有问题。
3、在异常处理语句中,messagebox(handle,'我不知道你输入的是什么','系统提示',mb_ok or mb_iconstop);这个参数格式也正确,语法上没有问题。
4、解决办法:按第二个MessageBox的格式,把Try部分的MessageBox参数改一下即可。只要参数正确,这个语句可以不用Try的(但你的StrToInt函数,可能在Edit中的值无法转换成整型时触发异常)。
其实,你可以换个思路,就是让对方只能输入数字!
求Delphi中关于异常的处理语句
No.1:Try except \/\/异常才来这里 end;No.2:Try finally \/\/无论异常与否都来这里 end;No.3:DELPHI里没有下面这种用法 Try except finally end;上面这种写法可以这样写:Try try except end;finally end;
delphi try命令
try except end; 主要是用对程序运行是出现错误进行判断,try后面写你要写的代码,如果出现错误就执行except后的代码。主要用于数据库连接出错的情况。try finally end;一般来说主要是是在Finally后面,不管出现什么情况都执行Finally后的代码。主要用于窗体释放。
请问delphi软件中的try..finally是什么意思?
try..finally 是delphi语言里针对程序错误而采取的一种错误处理机制。一般与try...catch相匹配使用。try...catch...finally 这要的语句块主要可以完成以下错误机制:将可能产生错误的代码块用 try ... catch 包含起来,如果有错误了,则在catch里捕获,然后进行错误处理,而try ... finally 的作用...
delphi中用try异常处理不提示理啊。用的是delphi7
1楼的错了,输入错误调试的时候一样会报错的!只是不会执行 except 后面的异常处理,报错的错误是由delphi抛出的异常!你如果输入正确的就不会错啦,你输入一个错误的结果肯定是会报错的,例如你在edit中输入 fff 这个肯定是会报错的,如果输入555这样的纯数字转换就不会提示错误 ...
在DELPHI中已经加try...except,可是执行try的错误语句后,还是报错...
DELPHI的Try...Except...End 可以在Except后对错误进行处理,即使加了这句错误处理代码,在DELPHI的IDE环境中编程调试的时候仍然会报错,你把工程编译成EXE,直接在电脑中运行EXE程序就不会报错了,即使错了也会继续执行的~
delphi 里try expect 语句 是什么意思
异常处理的内容。try ...except ...end;try...except之间是执行正常逻辑,except...end之间执行的是如果try...except之间的语句出错了该如何处理。比如你读取文件的时候,你不知道文件是否存在,如果不用try...except程序会直接报错,使用except后就可以定义如果出错了该如何处理。网上资料应该还蛮多的...
关于Delphi中的try except end语句疑问?
try ...except on...do ...end;这个是一种异常处理,表示只处理 on 标识符后面的异常,而这里的 EinOutError 是I\/O异常类,是程序运行时试图对文件或外设进行操作失败后产生的。
delphi中如何用try...except处理异常
不会.try..Except能够拦截数据库错误信息.不知道2楼为什么这么说.你的语句没有执行是因为你的代码位置不对!try begin with adoquery1 do begin close;sql.Clear;sql.Add('insert into 设备入库表(code,name,,provider,price) values(code,name,provider,,price)');adoquery1.Parameters.ParamValues[...
Delphi中异常处理的语句有那些?
一、复合语句(或称语句结构、语句框架、语句模式等)1、粗放式 try finally end 和 try except end 2、精细式 try except on 异常1: 当异常1发生时的处置方法 on 异常2: 当异常2发生时的处置方法 ...on 异常n: 当异常n发生时的处置方法 end 二、简单语句 raise 主动抛出异常,供外层异常处理...
delphi能不能通过try来捕获数组越界的异常?
回答:能的,try \/\/操作数字的代码except \/\/若异常会执行这里,你可以用显示异常代码on e:exception do application.MessageBox(pchar(e.Message), '异常代码', 0);end;