Delphi 计算一个字符串在另一个字符串中出现的次数

最新推荐文章于 2023-06-04 15:11:58 发布

qq_33577118

最新推荐文章于 2023-06-04 15:11:58 发布

阅读量531

点赞数

分类专栏：自定义函数文章标签： delphi

本文链接：https://blog.csdn.net/qq_33577118/article/details/129119623

版权

自定义函数专栏收录该内容

13 篇文章 0 订阅

订阅专栏

function CountOccurences( const SubText: string; const Text: string): Integer;
begin
  if (SubText = '') OR (Text = '') OR (Pos(SubText, Text) = 0) then
    Result := 0
  else
    Result := (Length(Text) - Length(StringReplace(Text, SubText, '', [rfReplaceAll]))) div  Length(subtext);
end;