第一次写异常处理语句，怎么不能执行 ( 积分: 50 )

  • 主题发起人 主题发起人 gigglegile
  • 开始时间 开始时间
G

gigglegile

Unregistered / Unconfirmed
GUEST, unregistred user!
下面是我写的一个异常处理语句：
try
Retcode := ReadAccredit(Sysinfo.CardOptionComm);
except
on E:EOleException do showmessage('please refill the COMM');
end;
编译时提示：
[Error] untFrmLogin.pas(86): Undeclared identifier: 'EOleException'

怎么是没有定义呢，是不是没有引用哪个单元
 
我原来的程序是这样的：
....
Retcode := ReadAccredit(Sysinfo.CardOptionComm);
.....
然后我运行后会在这里提示这样的错误：
Project sanye.exe raised exception class EOleException with message '******'.
process stop .Use step or run to continue

接着我就该写代码
.....
try
Retcode := ReadAccredit(Sysinfo.CardOptionComm);
except
on E:EOleException do showmessage('please refill the COMM');
end;
......

怎么还是提示错误呢？？我是想拿这个提示的错误信息隐藏掉！！我该怎么办？？
 
不用Delphi调试，脱离Delphi运行
 
我看看！·
 
有没有试过把

on E:EOleException do showmessage('please refill the COMM');
改为

on E: Exception do
showmessage('Is Error: '+ E.Message);
 
To Lake_cx:我直接运行exe文件，的确不报错，能不能解释一下原因！
To娃娃：我按照你的改了一下，但是还是报错：
Project sanye.exe raised exception class EOleException with message '******'.
process stop .Use step or run to continue
呵呵...不知道你的语句又是什么意思呢？？
 
你是不是打开了一些调试的参数设置啊？
 
其实我也不知道这个破而大的程序是怎么搞的！反正现在结束了，我也算了！
 
不过还是学到点东西的！先谢谢两位了！
 
Tools-Debugger Options-Language Exceptions中去掉Stop On Delphi Exceptions应该就不会了报了，Delphi默认要监视所有的异常，有异常还不告诉你还叫调试模式么？
 
收藏！
谢谢lake_cx!!
 
您必须登录或注册才可回复。

Similar threads

G
有什么办法不让系统异常信息显示，只执行try...except后面的语句，给100分(100分)
回复
11
查看
228
gaohua21
G
S
在ICMP控件中怎样截获并处理EidSocketError异常错误?(20分)
回复
0
查看
203
ssppff
S
B
异常处理后面能不能加语句的啊(5分)
回复
6
查看
85
birch2002
B
P
异常的处理(100分)
回复
7
查看
176
PowerDelphi
P
H
Delphi中的异常处理(50分)
回复
1
查看
199
qdyoung
Q
后退
顶部