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

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

    某一字符是否在字符串中

    本實例是用AnsiMidstr()函數獲取指定字符串中的單個字符也可以獲取指定長度的子字符串運行結果如圖所示

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

    主要代碼如下
    procedure TFormButtonClick(Sender: TObject);
    var
      ip:Integer;
    begin
     if (EditText=)or(EditText=) then
     begin
       ShowMessage(請把信息添全);
     end
     else
     begin
      if Length(EditText)= then
      begin
        p:=Length(EditText);
        for i:= to p do
        begin
          if Trim(EditText)=AnsiMidstr(EditTexti) then
          begin
            LabelCaption:=在字符串中;
            break;
          end
          else
          begin
            LabelCaption:=不在字符串中;
          end;
         end;
       end
       else
         ShowMessage(字符只能是單個字符);
     end;
    end;

    字符串是由數字大寫字母或小寫字母組成

    本實例是用StrToInt()函數來判斷字符串是否由數字組成當字符串不能由StrToInt()函數進行轉換時在異常處理中用Uppercase()和Lowercase()函數來判斷字符串是由大寫字符串還是小寫字符串組成運行結果如圖所示

http://developcsaicn/delphi/images/jpg>
圖  判斷字符串是由數字大寫字母或小寫字母組成

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/8467.html