{
函数名   : GetSubStrCount
函数说明 : 统计一字符串在另一字符串中出现的次数
参数     :
              sSource: 源字符串
              sSubStr: 需分割的字符
返回值   : 子字符串在源字符串出现的次数
}
function GetSubStrCount(sSource, sSubStr: WideString): Integer;
var
  iPlace,iCount: Integer;
begin
  //转换为小写
  sSource := LowerCase(sSource);
  sSubStr := LowerCase(sSubStr);
  iCount := 0;
  repeat
    iPlace := Pos(sSubStr, sSource);  //子字符串第一次出现的位置
    if iPlace > 0 then
    begin
      Inc(iCount);  //次数累加
      sSource := Copy(sSource, iPlace+Length(sSubStr), Length(sSource));  //截取剩余部分
    end;
  until iPlace = 0;
  Result := iCount;
end;