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

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

    字符串中是否有小寫字母

    本實例是用length ()函數來獲取字符串的總長度再用自定義函數IsLower()對字符串中的每個字符進行判斷如果是小寫字母則返回True運行結果如圖所示

http://developcsaicn/delphi/images/jpg>
圖  判斷字符串中是否有小寫字母

    主要代碼如下
    procedure TFormButtonClick(Sender: TObject);
    var
     s : String;
     niislow : Integer;
    begin
     islow := ;
     s := EditText;
     n := Length(s);
     for i:= to n do
      if IsLower(s[i]) then
      begin
        islow := ;
        break;
      end;
     if islow> then
      ShowMessage(該字符串中有小寫字母)
     else
      ShowMessage(該字符串中沒有小寫字母);
    end;

    字符串中是否有指定的字符

    本實例是用pos()函數來獲取字符在字符串中的位置如果返回的數字大於則表示該字符串中包含指定的字符如果返回值為則不包含運行結果如圖所示

http://developcsaicn/delphi/images/jpg>
圖  判斷字符串中是否有指定的字符

    主要代碼如下
    procedure TFormButtonClick(Sender: TObject);
    begin
     if pos(EditTextEditText)= then
      ShowMessage(沒有指定的字符)
     else
      ShowMessage(字符串中包含字符+EditText);
    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/8469.html