判斷字符串是否為日期或時間[1]

    ——此文章摘自《Delphi開發經驗技巧寶典》定價￥　特價￥ 購買>>

    在一些管理系統中有的是以文本框的形式作為錄入日期時間的輸入組件但是這樣可能會不安全因為有的用戶可能會將錯誤的日期格式錄入到數據庫中這樣會給查詢數據帶來很多不便為了避免此問題的發生可以應用本技巧來判斷用戶所輸入的字符串是否為日期或時間格式

    程序運行結果如圖所示

    主要代碼如下
    procedure TFormButtonClick(Sender: TObject);
    var
      ip:Integer;
      a:array[] of Integer;
    begin
     a[]:=; a[]:=; a[]:=; a[]:=;
     a[]:=; a[]:=; a[]:=; a[]:=;
     a[]:=; a[]:=; a[]:=; a[]:=;
     if (Length(EditTAext)=)or(Length(EditText)=) then
     begin
      if Length(EditText)= then
      begin
       if StrToInt(Copy(EditText))> then
       begin
        if copy(EditText)=/ then
        begin
         if StrToInt(Copy(EditText))<= then
         begin
          LabelCaption:=是日期型字符串;
          if Copy(EditText)=/ then
          begin
           LabelCaption:=是日期型字符串;
           if StrToInt(Copy(EditText))> then
           begin
            p:=StrToInt(Copy(EditText));
            if StrToInt(Copy(EditText))<=a[p] then
             LabelCaption:=是日期型字符串
            else
             LabelCaption:=只是字符串;
            end
            else
             LabelCaption:=只是字符串;
            end
            else

[]  []  

From:http://tw.wingwit.com/Article/program/Delphi/201311/24879.html