请问如何判断一个控件中输入的值是delphi中合法的日期

解决方案 »

  1.   

    if TryStrToDateTime(输入的时间串) then
      showmessage('合法')
    else
      showmessage('非法');
      

  2.   

    有个函数IsValidDate  但是不好用
     建议你用DateTimePicker控件 win32里面 
    苯的办法也有
    定义一个date型的变量 把控件的值传给他 捕获异常 出错就表示不是合法的
    呵呵
      

  3.   

    try 
    strtodatetime('2003-99-99')
    except
    begin
    showmessge('no')
    exit
    end
    showmessge('yes')