要搜出这样日期格式的文件名

解决方案 »

  1.   

    用COPY截取,然后判断是否为日期?
    或者用正则表达式应该可以,没试过的说
      

  2.   

    一开始想用strtodate(leftstr(搜到名字,10))<strtodate(当天日期)),不过不行
      

  3.   

    var tempData: TDateTime;
    begin
    if TryStrToDate(FileName,tempData) then
    ShowMessage('是日期')
    else
    ShowMessage('不是日期');
    end;
      

  4.   


    -。- filename里面有些是2012-03-05,A323  这样的 虽然不是日期··可是确实我想要的··这样也不行
      

  5.   

    文件名称是否有规则呢?copy(str,1,pos(',',str))截取来进行判断是否日期
    然后是日期则把2012-03-05,A323添加到记录中去
      

  6.   

    哈哈 我按照你的方法然后再加些方法知道怎么解决了  谢了case5166
    (我看见佛)