Contar Caracteres

[Nuria]

Hola a tod@s:

Me gustaría saber si hay en Delphi alguna función que cuente el nº de caracteres que se repiten en una string.

Resulta que tengo un texto en un RichEdit, y necesito saber el nº de veces que se repite un determinado carácter. Había pensado en hacer un bucle sacando las distintas posiciones (con la función copy) e ir contando. Pero me interesaría saber si hay otra manera de hacerlo, está me parece un poco chapuza.

Utilizo Delphi 7. Muchas Gracias.


¡¡¡¡¡ FELICES FIESTAS !!!!!

[Mick]

function CountChars(Str:string; car:Char):integer;
var
 Ptr:PChar;
begin
  Result:= 0;
  Ptr:= PChar(Str);
  while Ptr^<>#0 do begin
    if Ptr^=car then Inc(Result);
    Inc(Ptr);
  end;
end;

Salud2 !!!

[Nuria]

Muchas Gracias Mick!

Funciona a la perfección, .

Pero pensaba que había una función propia de delphi que te resolvía la tarea.

De nuevo mil gracias.

Saludos...