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

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

    獲取文字中英文單詞的個數

    本實例是通過空格逗號句號問號和感歎號來判斷字符串中有多少個單詞運行結果如圖所示

http://developcsaicn/delphi/images/jpg>
圖  獲取文字中英文單詞的個數

    程序代碼如下
    procedure TFormButtonClick(Sender: TObject);
    var
     s:String;
     it:Integer;
    begin
     t:=;
     s:=trim(EditText);
     for i:= to Length(s) do
     begin
      if (((Copy(si)>=a) and (Copy(si)<=z)) or ((Copy(si)>=A)
      and (Copy(si)<=Z))) then
      begin
       if (not (((Copy(si+)>=a)and(Copy(si+)<=z))or((Copy(si+)>=A)
       and(Copy(si+)<=Z)))) or (Copy(si+)=#) or (Copy(si+)=) or
       (Copy(si+)=) or (Copy(si+)=?) or (Copy(si+)=!) then
       begin
        t := t+;
       end;
      end;
     end;
     LabelCaption := IntToStr(t);
    end;

    兩個子字符串之間的字符的個數

    本實例是用pos()函數來獲取子字符串在字符串中的起始位置並用後面的子字符的起始位置減去前面子字符串的起始位置再減去前面子字符串的長度這樣就得到了字符串中兩個子字符串之間的字符的個數運行結果如圖所示

http://developcsaicn/delphi/images/jpg>
圖  兩個子字符串之間的字符的個數

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

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