16,748
社区成员
发帖
与我相关
我的任务
分享统计字符串中某字符的出现次数
求统计字符串中某字符的出现次数
不知道应用什么方式或函数可以实现，请教各位兄弟了！
例
a:='123254879935212'
然后我要统计这个字符串中2出现的次数。应该怎么做。
不知道应用什么方式或函数可以实现，请教各位兄弟了！
例
a:='123254879935212'
然后我要统计这个字符串中2出现的次数。应该怎么做。
...全文
请发表友善的回复…
发表回复
lym_1978 2005-06-23
- 打赏
- 举报
一楼好方法。
amdwinter 2005-06-23
- 打赏
- 举报
p
hellolongbin 2005-06-22
- 打赏
- 举报
uses strutils
procedure TForm1.Button1Click(Sender: TObject);
var a:string;
begin
a:='123254879935212';
ShowMessage(IntToStr(length(a)-length(AnsiReplaceStr(a,'2',''))));
end;
procedure TForm1.Button1Click(Sender: TObject);
var a:string;
begin
a:='123254879935212';
ShowMessage(IntToStr(length(a)-length(AnsiReplaceStr(a,'2',''))));
end;
hellolongbin 2005-06-22
- 打赏
- 举报
最近ID换的我自己都晕了，索性全去掉了
何鲁青 2005-06-22
- 打赏
- 举报
强烈要求三七分赃，楼上给他个三就可以了...
何鲁青 2005-06-22
- 打赏
- 举报
支持楼上的老大...
