5,939
社区成员
发帖
与我相关
我的任务
分享＊＊如何处理这个异常＊在线等候高手！
我用MaskEdit设置掩码输入代码，运行时如代码未输全时离开该控件则发生无效数据异常，我该如何处理这个异常呢？高手帮帮忙！
...全文
请发表友善的回复…
发表回复
dupenf 2002-07-10
- 打赏
- 举报
up
sword1028 2002-07-10
- 打赏
- 举报
MaskEdit有一个 MaxLength的属性可以控制输入的长度，设一下试试吧！
delphicookies 2002-07-10
- 打赏
- 举报
我在其exit中加入如下代码：
procedure TForm1.MaskEdit1Exit(Sender: TObject);
begin
try
if length(trim(maskedit1.Text))<10 then
begin
maskedit1.SetFocus ;
end;
except
showmessage('yes');
end;
end;
end.
可无论在集成环境中还是在编译好的文件中运行，显示的都是系统的异常出错信息并没有屏避啊!!!!!
procedure TForm1.MaskEdit1Exit(Sender: TObject);
begin
try
if length(trim(maskedit1.Text))<10 then
begin
maskedit1.SetFocus ;
end;
except
showmessage('yes');
end;
end;
end.
可无论在集成环境中还是在编译好的文件中运行，显示的都是系统的异常出错信息并没有屏避啊!!!!!
sword1028 2002-07-10
- 打赏
- 举报
try
代码
except
屏蔽错误 SHOWMESSAGE('出错信息')
代码
except
屏蔽错误 SHOWMESSAGE('出错信息')
delphicookies 2002-07-10
- 打赏
- 举报
可如果数据不输全的话异常事件还是发生？？提示：class EDBEditError with message'Invalid input value.'
sword1028 2002-07-10
- 打赏
- 举报
在onexit事件中判断，如果不符合要求的话，把焦点移到本身就可以了
