contar un caracter en un string

[carlos gonzalez]

hola amigos, tengo una duda ojala puedan ayudarme, alguien sabe si en delphi existe alguna funcion para contar cuantas veses esta un caracter en un string.

por ejemplo si quiero saber cuantas veses esta el '.' en un string
458.158.254.4555 me de un 3

o cuantas beses esta la a
cama me de un 2

Su amigo Charless

[marcoszorrilla]

Pues no me consta pero es muy sencillo:

Con este ejemplo necesitas un botón un Edit y en el escribes una palabra que contenga varias veces la letra para hacer la prueba.

procedure TForm1.Button1Click(Sender: TObject);
var
i:Integer;
n:Integer;
begin
n:=0;
For i:=1 to Length(Edit1.Text) do
begin
if Edit1.Text[i]= 'a' then
n:=n+1;
end;

ShowMessage('La letra a aparece '+IntToStr(n)+'Veces');
end;

A partir del ejemplo crear una función es muy fácil.

Un Saludo.

[HySTD]

No olvides inicializar n=0, antes del bucle "for"; ya que podría sumar basura que hubiera en memoria. Saludos

[marcoszorrilla]

Ya lo he modificado para que no lo olvide.

Un Saludo.