如何判断Tedit中输入的日期是合法的？

Question

datetimepicker.data:=data 当前日期
datetimepicker.data:=strtodata(日期字符串)

Answer 1

datetimepicker.data:=vartodate(data) 当前日期
datetimepicker.data:=vartodata(日期字符串) 
//用变体,防止日期不兼容

Answer 2

yqh: 我是要清空datetimepicker中的数字，让用户自己填。应该怎么做？

Answer 3

最简单的方法就是在try中直接转换，如果有异常就不合法：）

Answer 4

datetimepicker会自动控制日期的合法性！

Answer 5

对于datetime
  try 
    strtodate(edit1.text);  except
    showmessage('转换失败，输入出错！');
  end;

Answer 6

这个问题我也遇到过,我的办法是将一个TDBEdit控件盖在TDateTimePicker上只留右边的按钮
然后在TDateTimePicker的closeup事件中宁
DataSet.edit;
Edit1.text:=DataTimePicker1.date;
DataSet.post;
且将Edit1设为Enabled=false

Answer 7

程序是先显示出错窗口，后处理异常。也就是在
try  
strtodate(edit.text) //运行到此出错窗口就显示，关闭出错窗口后，在运行（F9），处理  
                     //异常的窗口才显示，这个异常保护没有起到作用。