如何处理MaskEdit的异常

icewind 2000-06-22 10:26:00
当我用MaskEdit编辑时,当发生错误时会激发EDBEditError异常,我想自己根据程序的需要来处理该异常,Help说ValidateEdit会调用ValidateError来触发一个异常,我发现ValidateError为一个虚函数,并且被保护,请问该如何实现
...全文
216 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
icewind 2000-11-16
  • 打赏
  • 举报
回复
多谢各位
binchang 2000-11-15
  • 打赏
  • 举报
回复
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnException := AppException;

end;

procedure TForm1.AppException(Sender: TObject; E: Exception);

begin
Application.ShowException(E);
Application.Terminate;
end;
zxh1972 2000-06-29
  • 打赏
  • 举报
回复
调试通过
type
inputerr=class(exception);
.......

procedure TForm1.MaskEdit1Exit(Sender: TObject);// maskedit onExit
begin
try
maskedit1.ValidateEdit;//验证输入正确性
except
raise inputerr.create('输入错误');
end;
end;
icewind 2000-06-27
  • 打赏
  • 举报
回复
zyb,我不知道该如何写起,是不是要写一个继承TMaskEdit的类,然后再Override该虚函数,你能写一个给我瞧一瞧吗
zyb 2000-06-26
  • 打赏
  • 举报
回复
写在你发生异常的地方啊,把你的代码写出来给我看看吧!-------wxlzyb@263.net
zyb 2000-06-26
  • 打赏
  • 举报
回复
ONCHANGE(...)
icewind 2000-06-24
  • 打赏
  • 举报
回复
请问Try .. Except写在何处,多谢
zyb 2000-06-23
  • 打赏
  • 举报
回复
利用如下代码:
......
try
......(正常操作代码)
except
on E : EDBEditError do
......(根据你的需要处理异常)
raise ;
end ;

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧