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

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

    字符是否可以轉換成整數

    本實例是用StrToIntDef()函數來判斷字符串是否為整數如果字符串是整數那麼StrToIntDef(s)和StrToIntDef(s)將返回轉換後的整數如果字符串不是整數 StrToIntDef(s)將返回StrToIntDef(s)將返回運行結果如圖所示

http://developcsaicn/delphi/images/jpg>
圖  判斷字符是否可以轉換成整數

    主要代碼如下
    function TFormIsIntStr(const S: String): Boolean;
    begin
     if StrToIntDef(S)=StrToIntDef(S) then
      Result:=True
     else
      Result:=False;
    end;
    procedure TFormButtonClick(Sender: TObject);
    begin
     if IsIntStr(EditText) then
      ShowMessage(可以轉換成整數)
     else
      ShowMessage(不可以轉換成整數);
    end;

    字符中是否有漢字

    本實例是用Length()函數來獲取字符串的長度用Ord()函數來獲取每個字符的ASCII碼當ASCII碼的值大於$F時表示該字符是漢字的前一個字節並用Copy()函數來獲取當前的漢字運行結果如圖所示

http://developcsaicn/delphi/images/jpg>
圖  判斷字符中是否有漢字

    主要代碼如下
    procedure TFormButtonClick(Sender: TObject);
    var
     strssj: String;
     i: integer;
    begin
     str := trim(EditText);
     i := ;
     while i< Length(str) do
     begin
      if ord(str[i]) > $F then
      begin
       s := Copy(stri);
       sj :=sj+ +s+;
       i := i+;
      end
      else  i:=i+;
     end;
     LabelCaption := 在字符串中含有漢字+sj;
    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/8470.html