Ayuda En Delphi

[Susana Jimenez]

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

[Susana Jimenez]

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

[[Delphius]]

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]

[defcon1_es]

Empezado por Susana Jimenez

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

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;