Como Validar un campo numerico?
Hola a todos, me gustaria que alguien me dijera como hacerle para validar la lectura de un dato numerico en un Edit, sin utilizar el Maskedit. Inserte el siguiente codigo:
try kms:=Strtoint(Edit2.Text); except on E: EConvertError do MessageDlg('Lectura no es valida!!!', mtError, [mbOk], 0); end; y cuando leo letras el programa se me revienta sin mostrarme este mensaje de error. Gracias |
Probé tu código y no presenta ningún problema; el mensaje se muestra correctamente cuando se introducen letras. Pareciera que el error está en otra parte. Quizá algo antes de la conversión está generando una excepción que no detectas.
// Saludos |
otra forma de hacerlo sin utilizar las excepciones podria ser esta:
Código:
if trystrtoint (dbedit2.Text,i) then Saludos |
se me ocurre controlar las teclas del Edit... en el evento OnkeyPress... filtra solo aquellas que sean numeros:
If Not (Key IN ['0'..'9']) then key := #0 claro que tendras que controlar el resto de caracteres como por ejemplo el de borrar... pero funciona bien. |
El Try/Except de tu ejemplo debe funcionar bien. Lo que pasa es que delphi, al momento de generar la excepcion, te esta deteniendo la ejecucion del programa.
Eso puedes solventarlo en Toos/Debugger Options/Language Exceptions -> Stop on delphi exceptions. Claro que, si corres el ejecutable fuera del IDE, el mensaje de error debe aparecer. |
Hola amigos, les agradezco a todos su ayuda, gracias!!!
|
A mi resulto, pero alguien sabe cual es el codigo para el BORRAR..
Y por casulidad me podrian decir , si existe algun error que me diga si algun campo quedo vacio , cuando intente guardar. :rolleyes: |
Cita:
VK_DELETE - tecla "suprimir" Cita:
// Saludos |
GRACIAS-...........
|
para ser un poquito mas exacto
If Not (Key IN ['0'..'9',#8,'.']) then key := #0 |
MEJOR AUN... GRACIASSSSSS'''''''
|
La franja horaria es GMT +2. Ahora son las 06:33:28. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi