如何判断maskedit框中输入的数据是“有效”的日期型数据？

Question

wzs:提供我的方法供你參考:
先設置一日期變量,實現方法如下:
procedure ....(sender..)
var datevalue:Tdatetime;
begin
 try 
   datevalue:=strtodatetime(maskedit.text);
 except
   begin
   showmessage('輸入日期無效!,請重新輸入某某日期!');
   end;
 end;
end;

Answer 1

sorry!應加上返回語句procedure ....(sender..)
var datevalue:Tdatetime;
begin
try 
  datevalue:=strtodatetime(maskedit.text);
except
  begin
  showmessage('輸入日期無效!,請重新輸入某某日期!');
  exit;
  end;
end;
end;

Answer 2

不行了，是不是有问题？？
我运行时显示如下下错误：
  is not valid date
是什么原因