validar Edit!!

[ezequiel913]

hola gente!!

tengo un problema con el ingreso de datos en un Edit. la cosa es asi: yo quiero que el edit me permita ingresar los numeros 20 o 27 o 30 en primer lugar, y despues que me deje ingresar cualquier numero. por ejemplo:

en ese edit tengo que ingresar el CUIT entonces los 2 primeros numeros tienen que ser si o si el 20, 27 o 30. el CUIT tambien tengo que ingresarlo sin los guiones. ejemplo:

27358557892

asi es como tendria que ingresarse los datos en ese edit.

gracias!!!

[[oscarac]]

Puedes revisar por el metodo Onchange del edit
seria "algo mas o menos asi"

Código Delphi [-]
 
procedure TfrmValesdeConsumo.edtTrabajadorChange(Sender: TObject);
begin
if Copy(edtTrabajador.Text,1,2) <> '02' and 
  Copy(edtTrabajador.Text,1,2) <> '27' and 
  Copy(edtTrabajador.Text,1,2) <> '30' Then
  edtTrabajador.SetFocus

[ezequiel913]

hola Oscarac!!

Hice exactamente lo que me dijiste y no me dejo, me tira un error en la segunda linea, en la primera linea del IF esta todo bien,pero en la segunda, me dice que "<>" no es un operador aplicable para este tipo de operandos.

este es el codigo que me queda a mi:

procedure TAltaProveedores.EditCuitChange(Sender: TObject);
begin
If Copy (EditCuit.Text,1,2) <> '20' and
Copy (EditCuit.Text,1,2) <> '27' and // en esta linea me tira el error.
Copy (EditCuit.Text,1,2) <> '30' then
EditCuit.SetFocus;
end;

[[oscarac]]

me parece que tienes que encerrarlos entre parentesis cada pregunta

() and () and()

[ezequiel913]

Oscarac!!!

perfecto ahí compilo, puse a ejecutar y cuando estoy en el edit ese, me deja ingresar cualquier numero, no es que solo me deja entrar los que yo le digo, puedo entrar cualquier numero y no me dice nada, solo quiero que me deje entrar esos números.

[[oscarac]]

Entonces coloca el codigo en el evento OnExit
eso hace que cuando salga del foco verifique si los 2 primeros son los numeros que tu quieres que sean si no son regresara al edit

[ezequiel913]

Perfecto, hice eso en el evento OnExit y funciona.

muchas gracias!!

saludos!!!

[luchifer]

Prefiero utilizar el evento onkeypress del edit y coloco el codigo, por ejm:

if not (Key in ['0'..'9',#8,#13,'.']) then Key := #0 else
if key=#13 then sendmessage(Fing_nota.Handle,WM_NEXTDLGCTL,0,0)

o sea en este caso si no presionan solo numeros, el edit no acepta otro caracter