Programación General > Delphi

 Solo datos alfanumericos

(1/1)

Ac1d0:
hola que tal soy nuevo en esto  quisiera que me ayuden porfavor con la validacion de los edits para que solo me acepten caracteres de la 'a' a la 'z' y uno que me acepte alfanumerico, y porfavor como restrinjo el numero de caracteres en cada edit

Amilius:
Creo recordar que hice un filtro de esos con keypress o alguno de esos eventos. LA idea era poner en 0 el char si no estaba dentro del conjunto admitido de chars.

Enko:

--- Código: Text --- procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);var  Alfa:  set of 'a'..'z';begin   if not (Key in Alfa)  then Key := Chr(0);end;  
En vez de Chr(0), se puede usar tambien

--- Código: Text ---   Key := #0;  que es lo mismo

Ac1d0:
hola de nuevo aqui molestandolos con el codigo que me pasaron esta shido pero no puedo poner espacios ni eliminar datos equivocados y eso pues es un problema

Enko:
Mira, no teno ahora compilador para probar pero sería algo así; habrái que agregarle al codigo un par de ORs teniendo en cuenta el código ascii de las teclas "BackSpace" (8) y la del Espacio (32).


--- Código: Text --- procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);var Alfa:  set of 'a'..'z'; // te combiene ponerlo en var global y no local como está acabegin  if (not (Key in Alfa)) or (Key <> Chr(8)) or (Key <> Chr(32))   then          Key := Chr(0);end;  

Navegación

[0] Índice de Mensajes