可如果数据不输全的话异常事件还是发生??提示:class EDBEditError with message'Invalid input value.'
try 代码 except 屏蔽错误 SHOWMESSAGE('出错信息')
我在其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.可无论在集成环境中还是在编译好的文件中运行,显示的都是系统的异常出错信息并没有屏避啊!!!!!
代码
except
屏蔽错误 SHOWMESSAGE('出错信息')
procedure TForm1.MaskEdit1Exit(Sender: TObject);
begin
try
if length(trim(maskedit1.Text))<10 then
begin
maskedit1.SetFocus ;
end;
except
showmessage('yes');
end;
end;end.可无论在集成环境中还是在编译好的文件中运行,显示的都是系统的异常出错信息并没有屏避啊!!!!!