发信人: 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]
|
|