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
版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 举报，一经查实，本站将立刻删除。
发布者：全栈程序员-站长，转载请注明出处：https://javaforall.net/110729.html原文链接：https://javaforall.net
