掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
文字列を判定基準にwhile文を使うには？ (ID：13351)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
標準の関数はないようです。簡単につくれます。 function EnumSubStr(const Str, SubStr:string):integer; var p:PChar; begin result := 0; p := AnsiStrPos(PChar(Str),PChar(SubStr)); while p <> nil do begin Inc(result); p := AnsiStrPos(p+Length(SubStr),PChar(SubStr)); end; end; procedure TForm1.Button1Click(Sender: TObject); begin Label1.Caption := IntToStr(EnumSubStr('abc,123.0,xyz,,',',')); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.