Foros Club Delphi - Ayuda En Delphi

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

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

- - Ayuda En Delphi (https://www.clubdelphi.com/foros/showthread.php?t=50490)

ayuda como validar una caja de texto para que solo entren letras y no numeros ya tengo un codigo

if (key < Char(65))or (key > char(90)) and (key < Char(97))or (key > char(122))and (key <> Char(8)) and (key <> Char(32))and (key <> Char(13)) then
begin
mensaje:=Application.MessageBox('Digíte Letras', 'Error de entrada');
key := char(0); //Limpia el EditBox

y si me acepta solo letrascuando pulso la tecla de retroceso no me la acepta ya intente quitandole el 8 pero aun asi no me la acepta

GRACIAS:p

gracias ya lo tengo es algo muy facil y sencillo, quien lo quiera mande un mensaje privado y se lo mando con gusto

Hola Susana Jimenez,
Bienvenida a clubdelphi!

Aprovecho que recién te inicias en los foros para comunicarte sobre la guia de estilo. Por favor tomate unos minutos para leerlas.

Con respecto a tu problema, existen muchas opciones, considero que la más "limpia" es emplear un MaskEdit. Este componente te permite editar una "mascara" de manera que sólo permita ingresar lo permitido y reconocido por dicha "máscara".

Si deseas emplear un Edit también se puede conseguir. Hay varios hilos en donde el tema ya ha sido tratado. Te sugiero que realices una búsqueda.

Si tienes dudas sobre el MaskEdit usa la ayuda, y si te quedan dudas puedes comentarlas.

Es este momento no dispongo de Delphi, si no te preparaba un ejemplo... como te decía: una búsqueda te va ser de ayuda. Y si tienes mayores dudas o problemas aqui estaremos.

Saludos,

EDITO:
Veo que ya lo solucionaste. Si deseas puedes compartir tu solución aqui mismo. Copia tu código y encierralo entre las etiquetas
[delphi] y [/delphi]

Cita:

Empezado por Susana Jimenez (Mensaje 247117)

Código Delphi [-]if not(key in ['A'..'Z', 'a'..'z', #8]) then
begin
mensaje:=Application.MessageBox('Digíte Letras', 'Error de entrada');
key := char(0); //Limpia el EditBox
end;