用 MaskEidt ，把它的EditMask设置为 “0000年00月00日”
//检查日期输入是否正确
if EditDate.Text<>''
then
begin
//把输入的日期，如2002年07月30日 改为 02－07－30
str := ' - - ';
for i := 1 to 2 do
str := EditDate.Text[i+2];
for i := 4 to 5 do
str := EditDate.Text[i+3];
for i := 7 to 8 do
str := EditDate.Text[i+4];
//然后用StrtoDate试试，出错就表示是非法日期类型
try
StrToDate(str);
except
showmessage('"' + EditDate.Text + '" 不是正确的日期格式!');
EditDate.SetFocus;
exit;
end{try};
end{if};
在日期输入时直接输入20020730，EditMask自己给你切换！
