字符串问题? 有没有一个函数得到某字符在该字符串中出现的次数? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 for i:=1 to length(str) do if copy(str,i,length(str1))=str1 then sum:=sum+1;随手写的,不一定对 while str<>'' then //str为原,sub为子串,vcount为次数begin vfind:= pos(sub,str); delete(str,i,v_find + length(sub)); inc(vcount);end; 求Dephi使用lua时,在lua中访问delphi对象例子 关于delphi控件 半个汉字的问题 在线等待.................. 我的编程手册“简单文档管理器” 完美无瑕的明日将令人备感艰难--Bon Jovi(It's My Life) 大家是用自动编号,还是自己写函数生成啊?》 考试完毕,散分 当鼠标点击最小化的程序条,发出哪一条消息? delphi5.0不能import所有activex控件? 毛病! 怎样不用TSplitter控件实现TSplitter控件的功能
for i:=1 to length(str) do
if copy(str,i,length(str1))=str1 then sum:=sum+1;
随手写的,不一定对
begin
vfind:= pos(sub,str);
delete(str,i,v_find + length(sub));
inc(vcount);
end;