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

Question

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

示例:

• “How”在字符串“How are you?”中出现一次
• “do”在字符串“How do you do?”中出现两次

Answer 1

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, Text, offset + length(Substring));
  end;
end;