[Neftali [Germán.Estévez]]

Bueno, no debería ser muy difícil crearla....

Código Delphi [-]
  function Repeticiones(const cadena:String; const ch:Char):Integer;
  var
    i, Count:Integer;
  begin
    // caracteres de la cadena
    Count := Length(cadena);
    // Inicializar
    Result := 0;
    // Para cada caracter de la cadena
    for i := 1 to (Count) do begin
      // es el que buscamos....
      if(cadena[i]=ch) then begin
        Result := Result + 1;
      end; // if
    end; // for
  end;

...o parecida...