Solo letras y numeros en edit

[oesteve]

Hola amigos, os escribo porque no se como hacer para que dentro de un edit solo pueda poner letras y numeros y en caso de que el caracter introducido no sea ni letra ni numero, sacar un mensaje informativo advirtiendolo.

Gracias.

[andres1569]

Hola:

Mírate este hilo, donde se dan diversas opciones para controlar la entrada de caracteres en un TEdit o en un TMaskEdit:

http://www.clubdelphi.com/foros/show...&threadid=1823

Posiblemente la parte que te interese sea la de interceptar el evento OnKeyPress y ahí controlas que los caracteres introducidos sean de tu gusto, si no lo son haces la asignación Key = #0, y anulas la pulsación. Revisa también los caracteres de las teclas Retroceso y Suprimir, que no debes anular normalmente.

[migueweb]

Hola amigos, estoy hace unos días tratando de lograr que en un edit, solo se puedan introducir texto o solo números y no lo he logrado, he probado las variantes aquí vistas y no me han funcionado, yo trabajo con delphi 7, necesito su ayuda pues es un proyecto de mi escuela.

[fidel]

Si buscas en el foro encontrarás algo como esto

En el evento OnKeyPress del edit pones:

para solo números

Código Delphi [-]
  if ( StrScan('0123456789'+chr(7)+chr(8), Key) = nil ) then  Key := #0;

sustituye 0123456789 por los caracteres que quieras que solo admita

[migueweb]

Perfecto, muchas gracias, ya esta haciendo lo que deseaba con el edit para solo admitir numeros, ahora como hago para que solo me admita letras, porque de usar este tendría que utilizar o mejor dicho poner todas las vocales del abecedario tanto las minusculas como las mayusculas y seria muy grande el codigo

[fidel]

Tampoco son tantas, alrededor de 50, pero si no hazlo así, con pitido incluido en caso de no pulsar letra.

Código Delphi [-]
if not (key in ['a'..'z','A'..'Z', #7, #8, #13]) then 
begin 
  Key := #0; 
  Beep; 
end;

[migueweb]

Gracias ya todo esta resuelto por esa parte ahora explicame algo si yo quiero sacar el promedio de números que se encuentran en tres edit distintos y que me muestre el resultado en un cuarto como seria

[pnsd_89]

Empezado por fidel

Tampoco son tantas, alrededor de 50, pero si no hazlo así, con pitido incluido en caso de no pulsar letra.

Código Delphi [-]
if not (key in ['a'..'z','A'..'Z', #7, #8, #13]) then 
begin 
  Key := #0; 
  Beep; 
end;

Claro la pregunta original es la que mencionas pero la 4ta respuesta era esta que realmente lo resuelve pero no entiendo la función del #7 en la condición.