Delphi開發技巧：字符串的相關判斷[2]

    ——此文章摘自《Delphi開發經驗技巧寶典》定價￥　特價￥ 購買>>http://tracklinktechcn/?m_id=dangdang&a_id=A&l=&l_type= width= height= border= nosave>

    主要代碼如下
    procedure TFormButtonClick(Sender: TObject);
    var
     Isstr : String;
    begin
     Isstr := EditText;
    try
     StrToInt(Isstr);
     ShowMessage(由數字組成！);
    except
     if Isstr=Uppercase(Isstr) then
      ShowMessage(由大寫字母組成！)
     else
      if Isstr=Lowercase(Isstr) then
       ShowMessage(由小寫字母組成！)
      else
         ShowMessage(無法識別可能是混雜型)
    end;
    end;

    字符串中的某一字符是否大寫

    本實例先用Ansiuppercase()函數將要查找的字符串轉換成大寫然後用AnsiMidstr()函數在字符串中進行查找運行結果如圖所示

http://developcsaicn/delphi/images/jpg>
圖  判斷字符串中的某一字符是否大寫

    主要代碼如下
    procedure TFormButtonClick(Sender: TObject);
    var
      sx:String;
      i:Integer;
    begin
      s:=Ansiuppercase(Trim(EditText));
      for i:= to Length(Trim(EditText)) do
      begin
         if Ansiuppercase(Trim(EditText))=AnsiMidstr(trim(EditText)i) then
         begin
           LabelCaption:=有;
           break;
         end
         else
           LabelCaption:=沒有;
      end;
    end;

right>[http://developcsaicn/delphi/htm>]  []  [http://developcsaicn/delphi/htm>]  [http://developcsaicn/delphi/htm>]  [http://developcsaicn/delphi/htm>]  

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