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

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

             LabelCaption:=只是字符串;
             end
             else
              LabelCaption:=只是字符串;
          end
          else
            LabelCaption:=只是字符串;
       end
       else
        LabelCaption:=只是字符串;
     end;
     if Length(EditText)= then
     begin
       if StrToInt(Copy(EditText))> then
       begin
        if Copy(EditText)= then
        begin
         if StrToInt(Copy(EditText))<= then
          begin
            if Copy(editText)= then
             begin
               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
                LabelCaption:=只是字符串;
           end
           else
             LabelCaption:=只是字符串;
        end
        else
          LabelCaption:=只是字符串;
      end
      else
        LabelCaption:=只是字符串;
     end;
     if (Length(EditText)=)and(Copy(EditText)=:) then
     begin
       if StrToInt(copy(EditText))<= then
       begin
         if StrToInt(copy(EditText))<= then
         begin
           if Copy(EditText)=: then
           begin
             if StrToInt(Copy(EditText))<= then
               LabelCaption:=是時間型字符串
             else
               LabelCaption:=只是字符串;
           end
           else
             LabelCaption:=只是字符串;
         end
         else
           LabelCaption:=只是字符串;
       end
       else
         LabelCaption:=只是字符串;
     end;
     end
     else
      LabelCaption:=只是字符串;
    end;

[]  []  

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