在字串中重複的出現次數

function fn_StrOccurrences(const ASubStr, AText:String):Integer; //在字串中重複的出現次數

var iOffset:Integer;

begin

  Result := 0;

  iOffset := PosEx(ASubStr, AText, 1);

  while iOffset<>0 do

  begin

    Inc(Result);

    iOffset := PosEx(ASubStr, AText, iOffset + Length(ASubStr));

  end;

end;

轉貼至:http://grandruru.blogspot.com/2016/08/blog-post.html