Averiguar el número de repeticiones de un caracter

[Javi2]

Hola, me gustaría saber si existe alguna función en Delphi que te devuelve el número de veces que existe un determinado caracter en una cadena.

(Por ejemplo, el número de repeticiones del caracter "&" en la cadena 'abc&&def&fg' sería 3).

Muchas gracias.

[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...

[llonigualker]

Este codigo te cambia todas las ocurrencias de una subcadena dentro de una cadena. Adaptalo a tus necesidades.

procedure TForm1.Button1Click(Sender: TObject);

function CambiaEn(Cadena, Esto, Por: String): String;
var
aPos: Integer;
begin
aPos := Pos(Esto, Cadena);
Result:= '';
while (aPos <> 0) do begin
Result := Result + Copy(Cadena, 1, aPos-1) + Por;
Delete(Cadena, 1, aPos + Length(Esto)-1);
aPos := Pos(Esto, Cadena);
end;
Result := Result+Cadena;
end;

var
ParaCambiar:string;

begin
ParaCambiar:='Un ejemplo en el que cambiar "cambiar"';
Label1.Caption:=CambiaEn(ParaCambiar,'cambiar','se cambio');
end;

Saludos.

[Javi2]

Gracias a todos por las respuestas. Lo que realmente quería saber era si existía alguna función que me evitara hacer yo el código porque más de una vez me ha pasado que después de currarme una función, ya existía alguna que hacía prácticamente lo mismo.


Si nadie me dice que existe una función que haga esto utilizaré las vuestras.

Muchísimas gracias.

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

A mi no me suena, pero en todo caso busca en la ayuda de Delphi "String handling routines", entra en cualquierea de ellas y en el tercer párrafo verás el enlace:

Category
string handling routines

Revisa la lista que aparece.