Autor Tema: Solo datos alfanumericos (Leído 2537 veces)

Ac1d0 · « **en:** Martes 28 de Marzo de 2006, 01:53 »

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á aca
begin
  if (not (Key in Alfa)) or (Key &#60;&#62; Chr(8)) or (Key &#60;&#62; Chr(32))   then
          Key := Chr(0);
end;
 
 

SoloCodigo

Autor Tema: Solo datos alfanumericos (Leído 2537 veces)

Ac1d0

Solo datos alfanumericos

Amilius

Re: Solo datos alfanumericos

Enko

Re: Solo datos alfanumericos

Ac1d0

Re: Solo datos alfanumericos

Enko

Re: Solo datos alfanumericos