发信人: delphifan()
整理人: teleme(2001-04-04 15:30:34), 站内信件
|
如何判断用户输入的日期格式是否正确
西安 梁 明
有时候，我们需要判断用户输入的日期格式是否正确。
一般的处理是给输入日期的组件添加“格式掩码”，但是给用户的界面不太
友好，如果自己根据日
期的格式写代码来判断有比较麻烦（要判断好多情况），那有没有一种写代
码少又不影响界面的好
办法呢？
在这里我给大家推荐下面这种办法：利用函数StrToDate()转换自身的错误
捕捉来“帮助”我们?
苫睿?nbsp;
下面是源代码：
procedure TForm1.DateEditExit(Sender: TObject);
begin
//利用函数转换的错误捕捉来处理...
if DateEdit1.Text<>'' then
begin
try
StrToDate(DateEdit1.Text);//转换
except
DateEdit1.SetFocus;
MessageBeep(0);
raise Exception.Create('"'+DateEdit1.Text+'" 不是正确的日期格
式!');
end{try};
DateEdit1.Text:=DateToStr(StrToDate(DateEdit1.Text));
end{if};
end;
窗体As text代码
(无内容)
版主：梁明
日期：1999-03-12-02:32
E-mail：[email protected]
--
※ 修改:．delphifan 于 Mar 13 00:36:28 修改本文．[FROM: 202.100.29.199]
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.100.29.199]
|
|