delphi 统计字符在字符串中出现的次数

function CountChar(const s: String; c: char): integer;

var

  i: integer;

begin

  result := 0;

  for i := 1 to length(s) do

    if s[i] = c then

      Inc(result);

end;