FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Validación de Datos Numéricos
Hola!
como podria validar al leer el contendio de una caja de texto que este solo este compuesto de números, antes de utilizar esta información. - por ejemplo si este fuera un rut ded cliente el cual lo voy a entregar de parametro a un porcedimiento almacenado, si este texto lleva entre medio una letra el sistema me lanza una excepción que procova obviamente la caida de mi aplicación. en visual basic existe una función que es ISnumeric(texto) que me válida esta situación, pero en delphi desconosco la existencia de alguna función similar, esta por lo menos no la reconoce. de ante mano muchas gracias!
__________________
"Todo lo que puede fallar, falla." |
#2
|
|||
|
|||
Hola.
¿No te sirve usar el MaskEdit para ingresar los datos? Si hacés clic derecho en el objeto y elegís la opción "Input Mask Editor", podés determinar cuales serán los caracteres admitidos. Saludos Gisela |
#3
|
||||
|
||||
Pon este código en el evento OnKeyPress de tu TEdit y sólo admitirá números:
Código:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if ( StrScan('0123456789.-',Key) <> nil ) or ( Key = Char(VK_BACK) ) then { BackSpace Key } begin {Aqui tu tratamiento normal del evento} end else Key := #0; end; |
#4
|
|||
|
|||
Muchas gracias por la ayuda!!
estuve viendo las 2 alternativas para el caso, me sirvio mas la segunda ya que es: buena,bonita y barata
__________________
"Todo lo que puede fallar, falla." |
#5
|
|||
|
|||
GRacias
Muchas gracias por esta informaciòn ya que a mi tambien me fue de mucha utilidad el aver encotnrado estas formas de evitar introducir letras en campos numèricos.
muchas gracias. |
|
|
|