掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
文字列内の指定文字数を調べるには？ (ID：7781)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
WがT内にどれだけあるか function GetHowMany(W,T:string):integer; var p:integer; begin result:=0; p:=AnsiPos(W,T); while p>0 do begin Inc(result); T:=RightStr(T,(Length(T)-p)); p:=AnsiPos(W,T); end; end; こっちの方が速いのでは？ 但し２文字以上の場合重なっていてもカウントされます。 例 GetHowMany('aba','ababa')=2 これはT:=RightStr(T,(Length(T)-p))の第2引数でLength(W)を足すやら引くやらしたらなくなります。 ちなみにStrUtilsが必要です
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.