function
PosCount(
const
Substr, S:
string
): Integer;
var
vLen: Integer;
begin
vLen :
=
Length(Substr);
if
vLen
=
0
then
Result :
=
0
else
Result :
=
(Length(S)
–
Length(StringReplace(S, Substr,
”
, [rfReplaceAll])))
div
vLen;
end
;
procedure
TForm1.FormCreate(Sender: TObject);
begin
ShowMessage(IntToStr(PosCount(
‘
魂牵梦萦
‘
,
‘
魂牵梦萦魂牵梦萦在需要魂牵梦萦
‘
)));
//
3
ShowMessage(IntToStr(PosCount(
‘
牵2
‘
,
‘
魂牵2梦萦魂牵梦萦4梦梦梦魂牵2梦萦
‘
)));
//
2
ShowMessage(IntToStr(PosCount(
‘
2
‘
,
‘
123254879935212
‘
)));
//
4
end
;
PosCount(
const
Substr, S:
string
): Integer;
var
vLen: Integer;
begin
vLen :
=
Length(Substr);
if
vLen
=
0
then
Result :
=
0
else
Result :
=
(Length(S)
–
Length(StringReplace(S, Substr,
”
, [rfReplaceAll])))
div
vLen;
end
;
procedure
TForm1.FormCreate(Sender: TObject);
begin
ShowMessage(IntToStr(PosCount(
‘
魂牵梦萦
‘
,
‘
魂牵梦萦魂牵梦萦在需要魂牵梦萦
‘
)));
//
3
ShowMessage(IntToStr(PosCount(
‘
牵2
‘
,
‘
魂牵2梦萦魂牵梦萦4梦梦梦魂牵2梦萦
‘
)));
//
2
ShowMessage(IntToStr(PosCount(
‘
2
‘
,
‘
123254879935212
‘
)));
//
4
end
;
转载于:https://www.cnblogs.com/klaus/archive/2010/09/01/1815036.html
版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 举报，一经查实，本站将立刻删除。
发布者：全栈程序员-用户IM，转载请注明出处：https://javaforall.cn/110729.html原文链接：https://javaforall.cn
【正版授权，激活自己账号】： Jetbrains全家桶Ide使用，1年售后保障，每天仅需1毛
【官方授权 正版激活】： 官方授权 正版激活 支持Jetbrains家族下所有IDE 使用个人JB账号...
