• 函数类型：　自定义函数

• 函数说明：

计算一个字符串在另一个字符串中出现的次数

• 代码如下：

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; //最聪明的一个写法 function CountOccurences( const SubText: string; const Text: string): Integer; begin if (SubText = '') OR (Text = '') OR (Pos(SubText, Text) = 0) then Result := 0 else Result := (Length(Text) - Length(StringReplace(Text, SubText, '', [rfReplaceAll]))) div Length(subtext); end; //其他写法 function stringcount(pBefore: String; pSubstring: String; pFlags: TReplaceFlags): Integer; begin result:= round((pBefore.Length - stringreplace(pBefore, pSubstring, '', pFlags).Length) / pSubstring.Length); end;

• 用法示例：

无　

《学习大师原创文档，请勿转载，侵权必究》