判断字符串中子串个数的函数

 GetSubStrNum( SubStr,Str: WideString): Integer;    pw: PWideChar;   i,SubLen: Integer;    Result := ;   pw := PWideChar(Str);   SubLen := Length(SubStr);    i >          i := Pos(SubStr, pw);     Inc(pw, i -  + SubLen);      Boolean(i)  Inc(Result);   ; ; 

---

 GetSubStrNum( SubStr, Str: widestring ): Integer;    i,x: Integer;   Len,LenSubStr: Integer;    Result := ;   i := ;   LenSubStr := Length(SubStr);   Len := Length(Str) - LenSubStr + ;    i <= Len          Str[i] = SubStr[]             x := ;        (x < LenSubStr)  (Str[i+x] = SubStr[x+])  Inc(x);        (x = LenSubStr)  Result := Result + ;       Inc(i,x);       Inc(i);   ; ; 

---

  菊子曰：我在用着的 博客编辑软件

转载于:https://www.cnblogs.com/longqcc/archive/2013/05/18/3084887.html