哪个函数可以得到一个字符串中某个字符的个数
例如  ffjj##p   中得到'#'的个数  结果是2

解决方案 »

  1.   

    function CharCount(c:char;s:string):integer;
    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;
      

  2.   

    赵玲Delphi函数库 1.90软件大小:936KB
    软件语言:简体中文
    软件类别:国产软件/共享版/编程工具
    运行环境: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
    我感觉还是不错的,:)
      

  3.   

    function CharCount(s: string; c: Char): Integer;
    var
      i: integer;
    begin
      Result := 0;
      for i:=1 to Length(s) do
        if str[i]=c then Inc(Result);
    end;
      

  4.   

    uses StrUtils;function CharCount(s, c: string): Integer;
    begin
      Result := Length(s) - Length(AnsiReplaceStr(s, c, ''));
    end;
      

  5.   

    Result := (Length(s) - Length(AnsiReplaceStr(s, c, ''))) div (length(c));
      

  6.   

    的确
      jadeluo(秀峰)方法很妙!