如何判断一个字符串是否为符合日期型数据

Question

如:
2007-3-21  , 2007-03-9 ,2007-3-09 为符合日期型字符串
而
2007-23-21 , 2007-9-33 等为非法日期型字符串,因为月不可能大于23,日不可能大于33

Answer 1

try
  strtodatetime(edit5.Text)
  except
     showmessage('err');
  end;
我不想用这样的方式实现.因为测试时会出现那样的错误

Answer 2

var
   dt:Tdatetime;
begin
   if TryStrToDateTime(edit5.Text,dt) then showmessage('ok') else showmessage('err');
end;