哪个函数可以得到一个字符串中某个字符的个数
例如 ffjj##p 中得到'#'的个数 结果是2
例如 ffjj##p 中得到'#'的个数 结果是2
解决方案 »
- 1=1
- dbgrideh的过滤功能怎样查询值为null的内容啊???
- 怎么在IIS中发布Delphi开发的CGI类型的Web Service并在Delphi中调用?
- 关于终止程序 在线等!!!!!!!!!!!!!!
- 如何实现每页打印标题,我用的是QuickRep。高分请都高手。
- 请朋友们推荐一些有关搜索制作游戏修改器的网站或EBOOK,谢谢,来者有分
- 用MODEM拨号通了之后,传送一个语音给对方手机,有什么好办法?
- ActiveFormX里的TActionList不起作用?
- 为什么会是这样??
- 我已经没分!!!请大家原谅!!我在同一个根目录下建立了两个子目录,如:(1)..\data\aa.db;(2)..\sys\bb.db;
- 字符串的输出问题,很急,请各位快快帮忙!
- 我开始学Delphi,遇到一个问题:如何检测在文本框中的输入为数字呢?请大虾帮帮!!!
var i,n:integer;
begin
n:=0;
i:=pos(c,s);
while i<>0 do
begin
n:=n+1;
s:=copy(s,i+1,length(s)-i);
i:=pos(c,s);
end;
result:=n;
end;
软件语言:简体中文
软件类别:国产软件/共享版/编程工具
运行环境:Win9x/Me/NT/2000/XP
加入时间:2004-9-3 19:49:53
下载次数:2809
软件评级:
在线注册:
联 系 人:[email protected]
开 发 商:未知 [收藏此页]感谢Delphi鸟窝的兄弟们长期以来对本人编程方面的帮助。为答谢Delphi鸟窝的兄弟们,方便大家工作、学习特为大家制作了一款《赵玲Delphi函数库》程序。它是用来方便查阅及编辑Delphi及其它编程工具中的函数资料的。欢迎大家踊跃下载及传播。
下载地址:http://www.onlinedown.net/soft/34549.htm
我感觉还是不错的,:)
var
i: integer;
begin
Result := 0;
for i:=1 to Length(s) do
if str[i]=c then Inc(Result);
end;
begin
Result := Length(s) - Length(AnsiReplaceStr(s, c, ''));
end;
jadeluo(秀峰)方法很妙!