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

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

    主要代碼如下
    Function TFormStrcount( s s s : String ): Integer;
    var
     ijslen : Integer;
    begin
      i := Pos( s s );
      j := Pos( s s );
      slen := Length(s);
      if j >= i then
       result := j i slen
      else
       result := ;
    end;
    procedure TFormButtonClick(Sender: TObject);
    var
     n : Integer;
    begin
     n := Strcount(EditTextEditTextEditText);
     ShowMessage(IntToStr(n));
    end;

    判斷字符在字符串中出現的個數

    本實例是用Pos()函數來判斷字符串中是否有指定的字符如果有則將個數加同時用Delete()函數刪除已查到字符前的所有字符這樣在下次查詢時不包含上次所查詢的字符運行結果如圖所示

http://developcsaicn/delphi/images/jpg>
圖  判斷字符在字符串中出現的個數

    主要代碼如下
    procedure TFormButtonClick(Sender: TObject);
    var
     iCount : Integer;
     ss : String;
    begin
     iCount := ;
     s := Trim(EditText);
     s := Trim(EditText);
     while Pos(ss)> do
     begin
      inc(iCount);
      Delete(sPos(ss));
     end;
     ShowMessage(IntToStr(iCount));
    end;

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

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