FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Validar convercion strtoint
hola foro, quiero validar la entrada de un tedit para realizar despues
convercion strtoint mas no se como hacer para validar que solo entren datos numericos, tambien aprovechando quisiera saber como validad un stringGrid para que tambien solo reciba valores numericos. Gracias ....... y ya saben cual es el premio !!!!!!!!! |
#2
|
|||
|
|||
Validar conversion StrToInt
Hola
Con el procedimiento Val(Edit1.Text, I, Code) lo puedes lograr donde code para ser satisfactorio tiene que ser cero. En la ayuda de Delphi viene un ejemplo. Saludos Luis Garcia _____________________________ La mejor manera de decir es hacer |
#3
|
||||
|
||||
Puede ser más cómoda la funcion StrToIntDef, si no se puede convertir la cadena a numero, suministras un valor predefinido, así no te lanza excepciones y no tienes que mirar códigos de error.
para que no introduzca los caracteres, podría ser algo así en el OnKeyDown del Tedit key > 30 es para permitir pulsar las teclas de control, insertar, suprimir, etc. Modificalo segun lo necesites. Un saludo
__________________
Si usted entendió mi comentario, contácteme y gustosamente, se lo volveré a explicar hasta que no lo entienda, Gracias. |
#4
|
|||
|
|||
Hola Lepe, Lo Agrege Pero No Funciona
Hola Lepe, sabes que agregue tu codigo a mi forma pero
sige aceptando letras en la captura. mira este es mi codigo procedure Tfcorte.Edit2KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); const Numeros = ['0'..'9']; begin if not(chr(key) in numeros) and (key >30) then key := 0; // que no escriba esa tecla end; no se que pasa pero sige aceptando entradas no numericas. agradeceria muchisimo tu ayuda. Bye. |
#5
|
|||
|
|||
alguien mas que me pueda comentar sobre el caso ?
hola foro, hay alguien mas que me pueda comentar sobre este
problemita, ya puse el codigo anterior mas no funciona. Gracias.. |
#6
|
|||
|
|||
Descarga las Rxlib
|
#7
|
||||
|
||||
con las RXLib podría ser suficiente....
si no, prueba con la función function TryStrToInt(const s: string; out i : integer): boolean; Aquí hay un ejemplo
__________________
|
#8
|
||||
|
||||
Cita:
Saludos!
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
#9
|
||||
|
||||
Saludos
Facilmente resolvi esto en el evento OnKeyPress del Edit Suerte
__________________
Van Troi De León (Not) Guía, Code vB:=Delphi-SQL, ¿Cómo? Viajar en el tiempo no es teóricamente posible, pues si lo fuera, ya estarían aqui contándonos al respecto! Última edición por vtdeleon fecha: 12-07-2005 a las 23:46:19. |
#10
|
|||
|
|||
gracias por la ayuda
muchas gracias chicos por la ayuda, en realidad VTDELEON aclaro bien el
problema por lo que vi fue que LEPE publico que su codigo lo pusiera en el evento onkeydown y en relidad debe ser como VTDELEON lo dice en el evento onkeypress, y con eso ya funciono correctamente, gracias. aprovechando , alguien me puede decir donde puedo bajar las Rxlibs que funcionen con Delphi 2005 , pues lo que estoy utilizando. Gracias a todos y les mando un Rico Besito (se lo reparten en partes iguales) |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
|