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 dectobinstr

Delphi 播放声音 建议采用 异步方式，比较流畅

Delphi单元文件基本结构

Delphi百度地图经纬度与地址互转

Delphi 让程序只运行1次

Delphi fmx窗体中控件对齐方式介绍

Delphi文件管理类函数

Delphi idhttpserver实现webservice

Delphi字符串内多个空格合为一个空格

Delphi实现win10下Delphi 10.3.1 inline hook 域名转向之internetconnecta

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

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