contar elementos de un edit

[yessika19]

Hola a todos,

Estoy haciendo un programa donde tengo que pediurle al usuario elnúmero de teléfono, el cual lo introduce en un edit. el problema es que tengo que controlar que sea un número de 9 cifras y que sea un número.

Para que solo pueda meter 9 dígitos he restringido el contenido del Edit a 9, sin embargo no sé como controlar si pone un número menor a esos nueve dígitos (para lo cual tengo que contar los dígitos que ha introducido el usuario) y que no ponga ninguna letra.

Espero que alguien oueda ayudarme.

Gracias por adelantado!

[ixMike]

Pues en el evento OnKeyPress

Código Delphi [-]
If not (Key in ['0'..'9', #8, #13]) then key:=#0;

Para asegurarte que hay 9 carácteres, utiliza la función Length(Edit1.text);

De todas formas, de esto ya se ha hablado en los foros. Haz una búsqueda para más información.


Saludos.

[[Delphius]]

Hola yessika19,
¿A que va tu pregunta?
¿No sabes como determinar si ha escrito los 9 dígitos? ¿O es que no sabes como proceder una vez que determinas que no ha escrito los 9 digitos?

Esto te pregunto por el hecho de que escribes entre paréntesis que necesitas contar... Si ese es tu problema, la solución es emplear Length:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  if Length(Edit1.Text) < 9
     then ShowMessage('Hay menos de 9 caracteres!');
end;

Saludos,

[yessika19]

si,lo k necesitaba era saber si habia puesto más o menos de 9 dígitos y controlar que no ponga una letra.

voy a pobar lo que he habeis dicho.

gracias!