DELPHI:获得子串在主串出现的次数

 获得子串在主串出现的次数
function StrSubCount(const Source, Sub: string): integer;
var
  Buf : string;
  i : integer;
  Len : integer;
begin
  Result := 0;
  Buf:=Source;
  i := Pos(Sub, Buf);
  Len := Length(Sub);
  while i <> 0 do
    begin
      Inc(Result);
      Delete(Buf, 1, i + Len -1);
      i:=Pos(Sub,Buf);
    end;
end;