YYYY-MM-DD的正则表达式
摘要:
procedure TForm1.Edit1Exit(Sender: TObject);var theDate:string; reg : TperlRegex;begin theDate := Edit1.Text; reg := TPerlRegEx.Create(self); reg.Subject := theDate; reg.RegEx := '^((((19|20)\d{2})-(0... 阅读全文
posted @ 2010-09-24 21:37 DoubleCat 阅读(601) 评论(0) 推荐(0) 编辑