- 1、本文档共5页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
Delphi中try…except…end与try…finally…end的应用,tryexceptfinally,delphitryfinally,delphitryexcept,delphitryexcepton,tryfinallyend,tryexceptend,delphifinally,delphiexcept,delphiexcepton
Delphi中try…except…end与try…finally…end的应用
在Delphi的中,提供了try…except…end和try…finally…end语句。本人在过去得编程过程中,深刻地体会到,这两个语句的合理使用,可以带来很多好处。一方面可以使程序结构更加清晰,使得我们不用编写大量的意外情况处理的代码;另一方面使我们可以很容易的编写出十分稳定可靠的程序。
一、我们为什么要使用try意外控制语句?
假设我们现在要编写一个程序,在这个程序中需要对一个远程文件进行一系列操作。先看如下代码:
代码1:
try
OpenRemoteFile;
UpdateRemoteFile;
CloseRemoteFile;
except
on E: Exception do
begin
CloseRemoteFile;
ShowErrorMessage;
end;
end;
这段代码中OpenRemoteFile和UpdateRemoteFile都有可能由于各种意外情况导致错误,当错误发生后,错误句柄将被捕获,继而执行on E: Exception do之后的语句。
设想如果Delphi没有提供try语句,那么我们的程序将被写成:
代码2:
if OpenRemoteFile then
begin
if UpdateRemoteFile then
CloseRemoteFile;
else
begin
CloseRemoteFile;
ShowErrorMessage;
end;
end
else
ShowErrorMessage;
不用说,这两段程序谁更“好”,谁更不容易出错。而且在实际使用中可能需要对远程文件做更复杂的操作。
二、try语句的一些简单应用。
在Delphi编程中常常遇到一些必须互相配对的语句,例如:对象的创建和释放;文件的打开和关闭;TDataSet的打开和关闭……。如果程序中不能很好的处理这些语句,就导致许多不可预测的现象。请参考如下代码:
代码3:显示一个“关于……”对话框。
frmAbout := TfrmAbout.Create(Application);
try
frmAbout.ShowModal;
finally
frmAbout.Free;
end;
又见如下代码:
代码4:备份模块备份按钮被按下的处理。由于操作时间比较长,按照Windows操作风格需要将光标变成沙漏的形状,但是无论备份是否成功都应会将光标恢复缺省状态。
procedure btnBackupClick(Sender: TObject);
begin
Screen.Cursor := crHourGlass;
try
{ 备份处理 }
except
{ 当备份中发生意外后的处理 }
end;
Screen.Cursor := crDefault;
end;
代码5:通过TQuery打开一个查询读取某些信息,完成后关闭。经验表明以下代码将比较可靠。
var
qry: TQuery;
sErrMsg: string;
begin
if qry.Active then qry.Close;
try
qry.SQL.Clear;
qry.SQL.Add(select ...); //加入SQL语句
qry.Open;
{ 读取查询中的信息,进行有关操作 }
qry.Close;
except
on E: Exception do
begin
sErrMsg := E.Message;
if qry.Active then qry.Close;
ShowMessage(sErrMsg);
end;
end;
end;
三、更复杂一些的应用
首先需要了解try语句与raise语句之间的关系。其实所有能够被try语句捕获的意外情况都是通过raise语句产生的。以前的例子程序为什么没有出现raise,是因为Delphi在提供有关功能的时候已经使用了raise语句。但是对于一些Delphi不产生意外,而我们又希望能够通过与其它意外情况相同的意外处理,那么我们可以在语句中自己raise一个意外,请看以下代码。
代码6:打开一个查询,在正常情况下至少
您可能关注的文档
- Chirp_UWB通信系统中宽带锁相环接收机的设计与实现ChirpUWB.pdf
- CIE2012年春季联考物理9702_s12_ms_51.pdf
- CIAE重离子加速器物理研究平台.pdf
- CLAM钢基体上大气等离子体喷涂制备氧化铝涂层工艺研究_郭智慧.pdf
- CIL003流变学在高分子形态结构研究中的应用郑强.pdf
- ClHN3I2全气相化学激光体系的化学动力学模拟计算.pdf
- Cisco实战配置三层交换的综合案例.doc
- Client_Server体系结构分布式专家系统模型与实现.pdf
- Client_Server系统的测试策略.pdf
- CME20SURVEY测验题答案OK20101219VV.doc
文档评论(0)