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

最新推荐文章于 2024-03-06 13:10:02 发布

qq_33577118

最新推荐文章于 2024-03-06 13:10:02 发布

阅读量654

点赞数

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

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

版权

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

13 篇文章

订阅专栏

该函数用于计算一个指定子字符串在给定文本中出现的次数。如果子字符串或文本为空，或者子字符串不在文本中，则返回0。否则，通过计算替换子字符串后的文本长度减少量除以子字符串长度得出结果。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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;