字符串问题？

[jy_1201]

有没有一个函数得到某字符在该字符串中出现的次数？

[lincanwen]

好象没有！

[Drate]

自己写一个不就完事了吗？

[jy_1201]

自已写也可以，但现存有的话不就是更好，看来只能自已写了

[yayx]

for i:=1 to length(str) do
if copy(str,i,length(str1))=str1 then sum:=sum+1;
随手写的，不一定对

[mengxianbao1521]

楼上的代码 很印象速度啊

[smilelhh]

while str<>'' then //str为原,sub为子串,vcount为次数
begin
vfind:= pos(sub,str);
delete(str,i,v_find + length(sub));
inc(vcount);
end;