数据校验问题-如何判断TEdit.text的内容为日期类型？

Question

见标题

Answer 1

try
  d1 := StrToDateTime(Edit1.text);
except
  showmessage('This is not a valid Datatime value');
end;

Answer 2

var
  s: string;
begin
  s := Edit1.text;
  Try
    StrToDate(s);
  Except
    ShowMessage('时间格式不正确！');
  End;
end;

Answer 3

delphi6有个函数:
function TryStrToDate(const S: string; out Value: TDateTime): Boolean;

Answer 4

增长知识：
TryStrToDate
TryStrToInt
TryStrToFloat