判断用户输入的日期格式是否正确.txt

大量Delphi开发资料

判断用户输入的日期格式是否正确 
 

有时候，我们需要判断用户输入的日期格式是否正确。 
一般的处理是给输入日期的组件添加“格式掩码”，但是给用户的界面不太友好，如果自己根据日期的格式写代码来判断有比较麻烦（要判断好多情况），那有没有一种写代码少又不影响界面的好办法呢？ 
在这里我给大家推荐下面这种办法：利用函数StrToDate()转换自身的错误捕捉来“帮助”我们干活！ 
下面是源代码： 
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;