请教如何控制在EDIT或MASKEDIT中输入的内容是有效的日期?

Question

请教如何控制在EDIT或MASKEDIT中输入的内容是有效的日期?例如输入2008.10.32会提示无效日期

Answer 1

设置MASKEDIT的格式，然后在ONEXIT里面编写格式判断

Answer 2

如果Edit的话只能自己写一个Invaidate()方法去校验日期格式，如果Maskedit的话本身就有这个Format

Answer 3

DateUtils单元里，'Is'开头的几个函数，就是干这个的。

Answer 4

Edit1.OnExit:var
  TempDate: TDate;
begin
  try
    TempDate := StrToDate(Edit1.Text);
  except
    ShowMessage('无效日期！');
  end;
end;