Delphi里面判断一个字符串在另一个字符串中出现的次数

本文整理自网络，侵删。

 
function SubStrConut(mStr: string; mSub: string): Integer;
{ 返回子字符串出现的次数 }
begin
  Result :=
    (Length(mStr) - Length(StringReplace(mStr, mSub, '', [rfReplaceAll]))) div
    Length(mSub);
end; { SubStrConut }

procedure TForm1.Button1Click(Sender: TObject);
begin
  Caption := IntToStr(SubStrConut(Edit1.Text, Edit2.Text));
end;

 

相关阅读 >>

Delphi ansi与unicode编码互转

Delphi 获取listbox1多选的值

Delphi编写的一款锁屏小工具

Delphi关于延迟时间的一点智慧

Delphi 用空格把 s 凑够 n 的长度

Delphi 去掉mdi窗口的滚动条

Delphi 把整个窗体保存为图片的方法

Delphi调用winapi: getsystemmetrics - 获取系统度量等数值信息

Delphi fmx调用jar里的java类init方法

Delphi程序带参数运行

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi里面判断一个字符串在另一个字符串中出现的次数