求助:如何实现对Edit中输入的日期数据的检验?

Question

希望写一个try函数,对Edit中输入的日期格式进行检验,若不正确,提示重新输入,改如何写.

Answer 1

onexit事件里写
try
strtodatetime(edit1.text)
except
edit1.text:='';
showmessage('输入有错');
end;

Answer 2

在Edit1的OnExit事件里写：   try
    strtodatetime(edit1.text);
  except
    Edit1.SetFocus;
    abort;
  end;

Answer 3

OnExit事件中如下判断：
Try
   StrToDatetime(Edit1.Text);
Except
   Edit1.text:='';
   ShowMessage('输入有错');
   Exit;
end;

Answer 4

用DataTimePick那些组件不就更好

Answer 5

dreamwander(梦并流浪着) 你那个是怎么解决的啊，说出来，大家也好参考一下吗？因为我也要用，我先谢谢你了

Answer 6

一定是运行了exe程序后，不报错了把！！，哈哈哈！！！

Answer 7

为什么不用DateTimePicker? 我用就很好。有意探讨回帖