delphi Try except on e:Exception do

最新推荐文章于 2024-02-23 11:49:28 发布

量子复盘

最新推荐文章于 2024-02-23 11:49:28 发布

阅读量2.2k

点赞数 3

文章标签： delphi

本文链接：https://blog.csdn.net/mgcps/article/details/103249511

版权

except on e:Exception do

//判断单位转换率

try

um_rate := vp_mstr.F('vp_um_rate_d').AsFloat / vp_mstr.F('vp_um_rate_m').AsFloat;

if um_rate <= 0 then

abort

else if (vp_mstr.F('vp_um').AsString = vp_mstr.F('part_um').AsString) and (um_rate <> 1) then

abort

else if (vp_mstr.F('vp_um').AsString <> vp_mstr.F('part_um').AsString) and (um_rate = 1) then

abort;

except on e:Exception do

begin

Application.MessageBox(PChar(E.Message), 'error', 16);//抛出异常信息

priMsg.ShowMsg('004'); //004=单位转换率设置错误!

edt_vp_um_rate_d.SetFocus;

abort;

end;

确定要放弃本次机会？

福利倒计时

: :

立减 ¥

普通VIP年卡可用

立即使用

量子复盘

关注关注

3
点赞
踩
5

收藏

觉得还不错? 一键收藏
0
评论
分享

复制链接

分享到 QQ

分享到新浪微博

扫一扫
举报

举报

【Delphi 基础知识 21】on E: Exception do 异常处理

记录日常技术经验

01-17

621

这种结构的目的是在程序执行过程中，如果发生了try块中的代码引发的异常，程序会跳转到相关的except块，执行异常处理代码。: 这是处理异常的实际代码块，包含了对异常的处理逻辑。: 这是一个异常处理的标识符，E 是一个变量，它会引用实际的异常对象。Exception 是基础的异常类，它是所有异常的祖先类。是用于处理异常的语法结构。这是一个异常处理块，用于捕获并处理发生在try块中的异常。: 当try块中的代码引发异常时，程序会跳转到这里来处理异常。: 这是一个关键字，表示接下来的代码块可能引发异常。

掌握Delphi中的异常艺术：全面异常处理指南

最新发布

07-22

on E: Exception do begin // 处理异常 end; finally // 执行清理操作 end; ``` ### 实现异常处理 #### 步骤一：抛出异常使用 `raise` 语句来触发异常。 ```pascal raise Exception.Create('An error ...

参与评论您还未登录，请先登录后发表或查看评论

Day1 Delphi三种异常处理的运用

最爱吃糖小狂魔的博客

01-16

247

不知道，有没有这种感觉，如果不对自己所学的知识进行总结，并将其消化为自己的，是很难加深印象并熟练运用的，所以，一方面是为了激励自己好好学习新的东西，并专研它，另一方面，是为了分享自己所学到的东西。由于是初次学习Delphi,它并不像之前所学习的语言，由于是第一天写Delphi的博客，所以接下来会有一系列的个人笔记，可能笔记做得不够漂亮，但是专注一点，一天解决一个问题，我相信，日积月累，一定

try ... excetpt on e:Exception do 中的 E 是哪里来的

weixin_33979363的博客

02-15

168

问题的由来：先申明，我不是 DELPHI 的三星，达到3星后各个板块的级别都一样的。在 DELPHI 里面我只是个新手，只学了DELPHI 8天，希望大家帮忙 try ... excetpt on e:Exception do 中的 E 是哪里来的？凭空出来的？怎么没在帮助里面找到说明？E是继承某个类么？这里只有 E.ME...

Delphi try except捕获异常

PleaseGo的博客

02-23

1508

Delphi try except捕获异常

try except 语法

期待下集是个可爱梦儿

09-18

622

try result:=FIdHttp.Get(URL); except on E: Exception do AError:=E.Message; //AError是string类型； end;

delphi OnException捕捉全局异常错误的方法

qq_33577118的博客

07-20

1156

软件总有想不到的异常发生，比如网络访问不了。。。如果系统弹出错误窗体，软件有可能就会终止运行，特别是那些不是人工守着的软件，这个delphi源代码就让所有的窗体显示在软件本身的文本框中，而不能让它弹出来，软件不会中断将继续运行！ private { Private declarations } public procedure GlobalExceptionHandler(Sender: TObject; E: Exception); { Public declarations }

Delphi异常处理：try_except与try_finally深度解析

- 捕获异常：在try...except...end结构中，可以使用`on E: ExceptionType do`来精确捕获并处理特定类型的异常。 5. **异常的调试** 在Delphi集成开发环境中，可以通过取消"DebuggerOptions"的...

Delphi教程：ExceptionMessage属性与Exception方法解析

on E: Exception do ShowMessage(E.Message); // 显示异常信息 end; ``` 在上述代码中，如果`try`块内的代码抛出了异常，`except`块会捕获它，并通过`ShowMessage`显示`E.Message`，即`Exception.Create`生成的...

delphi E: Exception 错误代码

05-25

2. 使用try..except语句来捕获异常并处理它们，以避免程序崩溃。 3. 使用调试器来查看异常错误的详细信息，例如错误的位置和堆栈跟踪，以帮助您确定问题的根本原因。如果您无法解决该问题，请提供更多细节，例如...

异常和错误处理（基于Delphi/VCL）

Nicrosoft的专栏

07-25

1801

有人在看了我的“如何将界面代码和功能代码分离（基于Delphi/VCL）”之后，提到一个问题，就是如何对服务端的类的错误进行处理。在基于函数的结构中，我们一般使用函数返回值来标明函数是否成功执行，并给出错误类型等信息。于是就会有如下形式的代码： RetVal := SomeFunctionToOpenFile(); if RetVal = E_SUCCESSED t

delphi try 抛出异常消息

03-27

992

try ------ except on E: Exception do begin raise E; end; end;

【转载】Delphi异常处理try except语句和try finally语句用法以及区别

weixin_30710457的博客

12-30

571

Delphi异常处理try except语句和try finally语句用法以及区别一直写程序都没管他们,也尽量很少用,今天终于想把他给弄个明白,在网上找来,记下!主要是前面小部分,后面的是详细说明(很啰嗦!) 一、异常的来源　　在Delphi的应用程序中，下列的情况都比较有可能产生异常。　　　　（1）文件处理　　　　（2）内存分配　　　　（3）Windows...

delphi 异常处理抛出消息

10-24

260

try except on e:Exception do begin ShowMessage(E.Message); exit; end; end;

沉默的异常--Delphi帮助寻宝之一

Musicwind的专栏

10-21

1851

沉默的异常--Delphi帮助寻宝之一作者: Musicwind®创建时间: 2001-10-19~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~更新历史：No.2更新时间：2001-10-21 02:42更新人员：Musicwind®更新备注：修改格式。更

delphi try except语句和 try finally语句用法以及区别

weixin_30902251的博客

06-11

326

1、当执行try...except之间的语句序列没有发生异常时，则忽略异常处理部分的语句，程序直接转移try...except..finally后面的语句处执行;2、Except括起来的语句，则只有在产生异常的情况下会被执行，其他情况一概不执行的。3、Finally括起来的语句是铁定会被执行的，无论是否有异常产生； try//尝试执行{SomeCode}except//出错的时候执行, E...