急!!如何显示系统给出的异常信息?在线等待! try ...except on E: Exception do showmessage(E.Message);end; 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 try ... // 这里出现异常except on E.Exception do MessageDlg('error! - ' + E.Message, mtError, [mbOK], 0); procedure TForm1.FormCreate(Sender: TObject);begin Application.OnException := AppException;end;procedure TForm1.AppException(Sender: TObject; E: Exception);begin Application.ShowException(E); Application.Terminate;end; delphi 缓存技术的运用.请问各位,有没有相关资料或网址呢?小弟很想学习,我在网上找了很久没有相关代码及介绍.请各位帮助. 紧急求救!!!!! 如何取出最后10条记录? delphi怎么跟Exchange Server 及net meeting连接,然后获取邮件及邮箱地址 Query的append方法能不能用? 说说你对类工厂的理解 给OleContainer赋值时出错,代码如下: 有关delphi+access的技术问题 在线等 小ks问题。。。! "数值越界"是怎么回事? NMPOP3收邮件!难道都不会?呵呵 简单的sql查询问题,快来拿分!!
... // 这里出现异常
except
on E.Exception do
MessageDlg('error! - ' + E.Message, mtError, [mbOK], 0);
begin
Application.OnException := AppException;end;procedure TForm1.AppException(Sender: TObject; E: Exception);begin
Application.ShowException(E);
Application.Terminate;
end;