发信人: finlove (荒野之狼), 信区: BorlandDev
标  题: 判断用户输入的日期格式是否正确 
发信站: 哈工大紫丁香 (Tue Jan 22 12:41:29 2002) , 转信

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

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






--

※ 来源:．哈工大紫丁香 http://bbs.hit.edu.cn [FROM: 211.97.214.52]