精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● Delphi>>时间和日期>>[文章]如何判断用户输入的日期格式是否正

主题:[文章]如何判断用户输入的日期格式是否正
发信人: delphifan()
整理人: teleme(2001-04-04 15:30:34), 站内信件
               如何判断用户输入的日期格式是否正确

                          西安      梁  明



     有时候,我们需要判断用户输入的日期格式是否正确。
     一般的处理是给输入日期的组件添加“格式掩码”,但是给用户的界面不太

友好,如果自己根据日
     期的格式写代码来判断有比较麻烦(要判断好多情况),那有没有一种写代

码少又不影响界面的好
     办法呢?
     在这里我给大家推荐下面这种办法:利用函数StrToDate()转换自身的错误

捕捉来“帮助”我们?
     苫睿?nbsp; 
     下面是源代码:
     procedure TForm1.DateEditExit(Sender: TObject);
     begin
     //利用函数转换的错误捕捉来处理...
     if DateEdit1.Text<>'' then
     begin
       try
         StrToDate(DateEdit1.Text);//转换
       except
         DateEdit1.SetFocus;
         MessageBeep(0);
         raise Exception.Create('"'+DateEdit1.Text+'" 不是正确的日期格

式!');
         end{try};
       DateEdit1.Text:=DateToStr(StrToDate(DateEdit1.Text));
     end{if};
     end;

     窗体As text代码
     (无内容) 

       
     版主:梁明
     日期:1999-03-12-02:32
     E-mail:[email protected] 



--
※ 修改:.delphifan 于 Mar 13 00:36:28 修改本文.[FROM: 202.100.29.199]
※ 来源:.月光软件站 http://www.moon-soft.com.[FROM: 202.100.29.199]

[关闭][返回]