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指针长度

Delphi 几种程序自杀的方法

Delphi udp文件传输

Delphi使用cef4Delphi制作chromium谷歌内核浏览器

Delphi实现类似android锁屏的密码锁控件

Delphi强制关闭执行程序(杀进程)

Delphi源码一个对字符加密解密的实例

Delphi 相对路径

winapi 字符及字符串函数(9): lstrcat - 合并字符串

Delphi ado通用操作数据单元

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

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