大量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;