VALIDAR INGRESOS DE RUT,NUMEROS Y LETRAS
Publicado por paulita tevere (1 intervención) el 09/02/2006 22:03:40
Hola que tal quisiera que me ayudaran , soy una aprendiz de DELPHI 7. necesito saber como se valida el ingreso de letras , numeros y rut en cajas de texto y a la vez cuando se hace enter el focus pase a la siguiente caja de texto, pero no se si se trabaja con con algunos de estos eventos onclick, onkeypress o onchange o quizas otros por si acaso tengo los encabezados del programa, espero que los rellenen con los codigos
Nota:Hay que agregar alguna variable en alguna parte del programa ¿en donde por favor?
//VALIDAR RUT
procedure TForm1.edit_rutClick(Sender: TObject);
begin
----------------------------//codigos
end;
end.
procedure TForm1.edit_rutKeyPress(Sender: TObject; var Key: Char);
begin
--------------------------- //codigos
end;
procedure TForm1.edit_rutChange(Sender: TObject);
begin
---------------------------//codigos
end;
end.
//VALIDAR EL INGRESO DE NUMEROS
procedure TForm1.edit_telefonoClick(Sender: TObject);
begin
----------------------------//codigos
end;
end.
procedure TForm1.edit_telefonoKeyPress(Sender: TObject; var Key: Char);
begin
--------------------------- //codigos
end;
procedure TForm1.edit_telefonoChange(Sender: TObject);
begin
---------------------------//codigos
end;
end.
//VALIDAR EL INGRESO DE LETRAS
procedure TForm1.edit_nombreClick(Sender: TObject);
begin
----------------------------//codigos
end;
end.
procedure TForm1.edit_nombreKeyPress(Sender: TObject; var Key: Char);
begin
--------------------------- //codigos
end;
procedure TForm1.edit_nombreChange(Sender: TObject);
begin
---------------------------//codigos
end;
end.
Espero que me ayuden por favor
Gracias….chaoo
PAULITA TEVERE
Nota:Hay que agregar alguna variable en alguna parte del programa ¿en donde por favor?
//VALIDAR RUT
procedure TForm1.edit_rutClick(Sender: TObject);
begin
----------------------------//codigos
end;
end.
procedure TForm1.edit_rutKeyPress(Sender: TObject; var Key: Char);
begin
--------------------------- //codigos
end;
procedure TForm1.edit_rutChange(Sender: TObject);
begin
---------------------------//codigos
end;
end.
//VALIDAR EL INGRESO DE NUMEROS
procedure TForm1.edit_telefonoClick(Sender: TObject);
begin
----------------------------//codigos
end;
end.
procedure TForm1.edit_telefonoKeyPress(Sender: TObject; var Key: Char);
begin
--------------------------- //codigos
end;
procedure TForm1.edit_telefonoChange(Sender: TObject);
begin
---------------------------//codigos
end;
end.
//VALIDAR EL INGRESO DE LETRAS
procedure TForm1.edit_nombreClick(Sender: TObject);
begin
----------------------------//codigos
end;
end.
procedure TForm1.edit_nombreKeyPress(Sender: TObject; var Key: Char);
begin
--------------------------- //codigos
end;
procedure TForm1.edit_nombreChange(Sender: TObject);
begin
---------------------------//codigos
end;
end.
Espero que me ayuden por favor
Gracias….chaoo
PAULITA TEVERE
Valora esta pregunta


0