Foros Club Delphi - Contar Caracteres

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Contar Caracteres (https://www.clubdelphi.com/foros/showthread.php?t=6241)

Contar Caracteres

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 !!!!! :D

Código:

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 !!!

Muchas Gracias Mick!

Funciona a la perfección, :D .

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

De nuevo mil gracias.

Saludos...