Delphi開發技巧：字符串的個數問題[3]

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

    在語句中查找漢字的個數

    本實例是用comparemem()函數對字符中的漢字進行比較如果符合要查找的漢字則將沒字的個數加運行結果如圖所示

http://developcsaicn/delphi/images/jpg>
圖  在語句中查找漢字的個數

    主要代碼如下
    function TFormfindcount(const s sFind: string): Integer;
    var
     i: Integer;
    begin
     i := ;
     result := ;
     while i <= Length(s)Length(sFind)+ do
      if comparemem(@(s[i]) @(sFind[]) Length(sFind)) then
      begin
       inc(result);
       inc(i Length(sFind));
      end
      else if byte(s[i])> then
       inc(i )
      else inc(i);
    end;

    統計中英文個數

    字符由一個字節組成ASCII碼的范圍在～之間而漢字由兩個字節組成每個字節的ASCII碼都大於等於本實例將通過以上條件對字符串中的中英文個數進行統計運行結果如圖所示

http://developcsaicn/delphi/images/jpg>
圖  統計中英文字個數

    程序代碼如下
    procedure TFormButtonClick(Sender: TObject);
    var
     Str : String;
     iEC:Integer;
    begin
     Str:=MemoText;
     E:=;C:=;
     for i:= to Length(Str) do
     begin
      if (Ord(Str[i])>=)and(Ord(Str[i])<=) then
      begin
       inc(E);
       LabelCaption:=英文個數+IntToStr(E);
      end
      else
      if (Ord(Str[i])>=) then
      begin
       inc(C);
       LabelCaption:=中文個數+IntToStr(C div );
      end;
     end;
    end;

right>[http://developcsaicn/delphi/htm>]  [http://developcsaicn/delphi/htm>]  []  

From:http://tw.wingwit.com/Article/program/Delphi/201311/8463.html