Foros Club Delphi - ¿valiar letras en los edits?

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

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

- - ¿valiar letras en los edits? (https://www.clubdelphi.com/foros/showthread.php?t=31602)

soma25

11-05-2006 21:31:05

¿valiar letras en los edits?

hola

estoy tranatandoo de como validar los edits mediante teclado, es decir

que en un edits solo me acepte numeros y en otros me acepte puras letras.

como es el codigo para validar por letras?

atte

soma 25

samantha jones

11-05-2006 22:37:50

en el evento OnkeyPress del Edit

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

vtdeleon

11-05-2006 23:38:58

Saludos

Cita:

Empezado por samantha jones

en el evento OnkeyPress del Edit

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

Ten encuenta que debes agregar la ñ,Ñ y vocales con acento.

kiringui

08-06-2006 09:48:41

si solo quieres numeros

para solo numeros:

if (Key in [#33..#47, #64..#255])then
Key:=#0;

para solo letras:

if not (Key in [#33..#47, #64..#255])then
Key:=#0;

Lepe	08-06-2006 11:52:07

Ojo, con el portapapeles de windows si permitirá introducir lo que sea, se puede interceptar el mensaje del portapapeles (algo más lioso) o en el evento OnChange llamar a esa rutina para que limpie los caracteres.

Saludos

kiringui

08-06-2006 11:58:01

lepe

No e especificado bene seria en el evento en key pres ..y tienes toda la razon tambien hjay que controlar el portapapeles!!!!buena observacion.

Tambene me e fijado que el caracter "<" no queda controlado ...

da gusto aprender todos juntos

La franja horaria es GMT +2. Ahora son las 07:44:22.