FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
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 |
#2
|
||||
|
||||
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 |
#3
|
||||
|
||||
otra forma de hacerlo sin utilizar las excepciones podria ser esta:
Código:
if trystrtoint (dbedit2.Text,i) then begin // se ha podido convertir y el valor está en la variable "i" end else // no se ha podido convertir a numero Saludos |
#4
|
|||
|
|||
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. Última edición por tarco35 fecha: 14-11-2003 a las 14:02:14. |
#5
|
||||
|
||||
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.
__________________
Héctor Geraldino Software Engineer |
#6
|
|||
|
|||
Hola amigos, les agradezco a todos su ayuda, gracias!!!
|
#7
|
|||
|
|||
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. |
#8
|
||||
|
||||
Cita:
VK_DELETE - tecla "suprimir" Cita:
// Saludos |
#9
|
|||
|
|||
GRACIAS-...........
|
#10
|
|||
|
|||
para ser un poquito mas exacto
If Not (Key IN ['0'..'9',#8,'.']) then key := #0 |
#11
|
|||
|
|||
MEJOR AUN... GRACIASSSSSS'''''''
|
|
|
|