我写了如下代码
try
i:=StrToDate(sObj); // 这句话执行后有系统错误提示,之后才提示我想要的消息。
except
begin
messagedlg('格式不正确',mtconfirmation,[mbok],0);
DateCheck:= 0;
exit;
end;
end;
怎么才能把那个系统提示消息去掉呢?
try
i:=StrToDate(sObj); // 这句话执行后有系统错误提示,之后才提示我想要的消息。
except
begin
messagedlg('格式不正确',mtconfirmation,[mbok],0);
DateCheck:= 0;
exit;
end;
end;
怎么才能把那个系统提示消息去掉呢?
IDE上当然会处理异常的http://lysoft.7u7.net
i:=StrToDateDef(sObj, 0);
if i=0 then
begin
MessageDlg('格式不正确',mtconfirmation,[mbok],0);
DateCheck:= 0;
Exit;
end;
不要吝啬哦,我暂时先结了,上面这位热心人回答的速度太快了,忍不住现在不给分了
Toos->Debugger Options->Language Exceptions页-〉去掉 Stop on Delphi Exceptions的钩。
gobiz(拔剑容易收剑难)的解决方法比较好
lili1(离奇)那种方法应该也可以,不过在开发的过程中去掉异常提示感觉不是很好