3 replies to this topic

[eduarcol]

Sera que la VCL tiene una funcion para determinar cuantas veces se repite un caracter en la palabra o hay que hacerlo a pulso.

delphi

function ContarCaracter(cPalabra, cCaracter: String): Integer;
var
   nIdx: Integer;
   nCuantos: Integer;
begin
   nCuantos := 0;
   for nIdx := 0 to Length(cPalabra) - 1 do
   begin
      if Copy(cPalabra, nIdx, 1) = cCaracter then
         inc(nCuantos);
   end;
   Result := nCuantos;
end;

Alguien sabe si existe?

[egostar]

No se si exista una función que haga eso, pero hay muchas opciones para hacerlo, esta es mi propuesta

delphi

function ContarLetras(cadena:string;caracter:char):integer;
var
 lineas: TStringList;
begin
 lineas := TStringList.Create;
 Lineas.StrictDelimiter := true;
 Lineas.Delimiter := Caracter;
 Lineas.DelimitedText := cadena;
 result := Lineas.Count-1;
 lineas.Free;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(inttostr(ContarLetras('Returns the index value of a substring.','e')));
end;

Salud OS

[Delphius]

No debería resultarnos raro el que si exista, después de todo el problema que comenta Eduardo es típico y muchas veces nos hemos envuelto en él.

De existir lo más probable es que esté en la unidad StrUtils. Pero al menos hasta en D6 no veo alguna función que vaya en ese sentido. ¡Que extraño!

Lo que si yo lo encararía de otra forma Eduardo... tu función hace llamadas a la función Copy() a mi en lo personal me parece innecesario esto. Máxime sabiendo que podemos tratar al string de forma directa. Sería mucho más rápido algo como esto:

delphi

result := 0;
for i := 1 to Length(Text) do
  if Text[i] = char
     then inc(result)

De paso nos ahorramos la variable contador

La técnica de Eliseo, que no deja de ser igualmente interesante, es más del tipo cañonazo. Es demasiado para algo que puede encararse por un modelo más simple. ¡Se está creando un TStrinList para utilizar la técnica del delimitador y trozar el string original.

Volvamos a los clásicos. 

Saludos,

[eduarcol]

Gracias por las propuestas, estan bien buenas