FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
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 !!!!! |
#2
|
|||
|
|||
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; |
#3
|
||||
|
||||
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... |
|
|
|