Delphi：计数字符串在另一个字符串中的次数

发布时间：2020-12-15 10:15:58 所属栏目：大数据来源：网络整理

导读：我正在使用Delphi 2007，并想知道是否有一种简单的方法来计算字符串在另一个字符串中发生的次数。任何内置函数我可以使用？例子： “如何”一次出现在字符串“你好吗？ “do”在字符串中出现两次“你好吗？” 解决方法 function Occurrences(const Substrin

我正在使用Delphi 2007，并想知道是否有一种简单的方法来计算字符串在另一个字符串中发生的次数。任何内置函数我可以使用？

例子：

>“如何”一次出现在字符串“你好吗？
>“do”在字符串中出现两次“你好吗？”

解决方法

function Occurrences(const Substring,Text: string): integer;
var
  offset: integer;
begin
  result := 0;
  offset := PosEx(Substring,Text,1);
  while offset <> 0 do
  begin
    inc(result);
    offset := PosEx(Substring,offset + length(Substring));
  end;
end;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!