哪个函数可以得到一个字符串中某个字符的个数
例如 ffjj##p 中得到'#'的个数 结果是2
例如 ffjj##p 中得到'#'的个数 结果是2
解决方案 »
- 有2..n个控件,我移动其中一个控件,想让所有控件也一同移动,但要保持控件的相对位置。
- 为什么我写的delphi程序,运行后关闭了,但是进程里面还有啊!!
- 求助 如何向另一个程序的LISTVIEW中的条目发送鼠标双击消息。
- To 时间问题.
- 请问一个很菜的问题,大家不要不理我啊!!!!!!
- 怎样把ACCESS数据表中的日期字段置为空
- Locate('emp_name',vararrayof(['']),[])函数的意思是什么
- 《Delphi6.0开发人员指南》出来了,要的去china-pub
- delphi与sql server2000开发数据库应用程序时应注意什么.
- 谁有不需要bde引擎的 数据库构件
- 字符串的输出问题,很急,请各位快快帮忙!
- 我开始学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(秀峰)方法很妙!