熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> Delphi編程 >> 正文

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

2013-11-11 21:05:24  來源: Delphi編程 
    ——此文章摘自《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
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.