D
delphibbs_yjh
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure Tfrm_zzsq.DBEdit7Exit(Sender: TObject);
var
d:tdatetime;
begin
if length(dbedit7.Text )>0 then
try
d:=strtodate(dbedit7.text);
except
showmessage('请输入正确的转正日期！');
dbedit7.setfocus;
end;
end;
如果dbedit7.text:='2005-02-43'
只会出现非法的时期，没有执行预期的except中的语句？？？？（debugger option 不选择 integrated debugging）
为什么？？？
var
d:tdatetime;
begin
if length(dbedit7.Text )>0 then
try
d:=strtodate(dbedit7.text);
except
showmessage('请输入正确的转正日期！');
dbedit7.setfocus;
end;
end;
如果dbedit7.text:='2005-02-43'
只会出现非法的时期，没有执行预期的except中的语句？？？？（debugger option 不选择 integrated debugging）
为什么？？？