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

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

    字符中是否有雙字節

    中文所用的字符全是雙字節字符英文所用的字節全是單字節字符也就是mbSingleByte本實例是用ByteType()函數返回字符串指定位置上的字符如果不是mbSingleByte則表示為雙字節字符運行結果如圖所示

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

    主要代碼如下
    procedure TFormButtonClick(Sender: TObject);
    var
     ss: String;
     i : Integer;
    begin
     s := EditText;
     i := ;
     while i<Length(s) do
     begin
      if (ByteType(Si) <> mbSingleByte) then
      begin
       s := s+ Copy(si)+ ;
       i := i+;
      end
      else
       i:= i+;
     end;
     LabelCaption := Trim(s);
    end;

    判數輸入的字符串是否為整數

    本實例是用庫函數sign()來判斷數字是否為整數當傳入的值小於則返回&#;若傳入的值大於則返回否則返回在用sign()函數時要在單元中加入Math單元運行結果如圖所示

http://developcsaicn/delphi/images/jpg>
圖  判數輸入的字符串是否為整數

    主要代碼如下
    procedure TFormButtonClick(Sender: TObject);
    var
     s : String;
     i : Integer;
    begin
     s:=EditText;
     try
      i:=StrtoInt(s);
      if sign(i)= then  //添加單元Math或 if i> then
       LabelCaption := 是正整數
      else
      begin
       if i= then
        LabelCaption := 是整數
       else
        LabelCaption := 非正整數;
      end;
     except
      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/8466.html