M
monkeyking1983
Unregistered / Unconfirmed
GUEST, unregistred user!
我想通过下面的方式检测用户输入的日期格式是否正确,但是程序会直接抛出异常,然后挂了,不会出现我想要消息提示,请问这是为何,我哪里写错了!
try
Userset := StrToDate(Edit1.Text);
except
ShowMessage('Not a DateTime Format');
end;
//如果正确,就显示用户设置的日期
ShowMessage(DateToStr(UserSetDateTime));
try
Userset := StrToDate(Edit1.Text);
except
ShowMessage('Not a DateTime Format');
end;
//如果正确,就显示用户设置的日期
ShowMessage(DateToStr(UserSetDateTime));