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 unigui执行程序部署有3种形式

Delphi xe 编译开关-一套代码不同平台编译

Delphi 中打开浏览器跳转网址链接网页的几种方法

Delphi2010 图片格式转换bmp, png,jpeg, gif, tiff , wmphoto

Delphi app 横屏和竖屏

Delphi汉字与汉字区位码的转换

Delphi中补齐字符串长度

Delphi 获取分解时间日期的年月日

apk权限大全 android必懂知识

Delphi获取千千静听歌词下载地址源码

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