FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
Ayuda Por Favor! Condición If
Hola amigos qué tal?
Epa soy novato en Delphi, apenas empecé a usarlo ayer. Estoy creando un programita para familiarizarme con Delphi. Sin embargo, tengo una duda que me está matando: Estoy creando una condición y necesito saber cómo hago para extraer los datos de un EDIT para poder aplicar la condición. Hasta ahora tengo este código: var prueba: Double; begin prueba := StrToFloat(Valor.Text); prueba := Format([prueba]); if isNAN(prueba) then ShowMessage ('Lo que introdujo no es un número') end. Donde <<Valor>> es es nombre del EDIT donde el usuario introduce los números. El objetivo es que el programa avise cuando el usuario introduce letras en ese EDIT. El programita que estoy desarrollando es un conversor. Gracias espero su respuesta. |
#2
|
||||
|
||||
Hola javave.
Podés asignar esto al evento OnExit del TEdit:
O directamente evitar que lo ingrese, asignando esto al evento OnKeyPress del TEdit:
Hay otras opciones, pero creo que estas son simples y te funcionaran bién. Saludos. |
#3
|
||||
|
||||
Normalmente siempre es más oportuno utilizar la función TryStrToFloat en lugar de StrToFloat. TryStrToFloat devuelve TRUE si la cadena dada en el primer parámetro solo tenía números, de lo contrario, devolverá FALSE.
|
#4
|
||||
|
||||
Cita:
Correcto, con TryStrToFloat ampliamos la opción a números reales. Te comento javave que TryStrToInt funciona del mismo modo pero con enteros. En ese caso la verificación OnKeyPress queda:
De acuerdo al delimitador especificado poné '.' o ',' Para especificarlo podés usar la variable DecimalSeparator. Para el código de arriba:
Saludos. Última edición por ecfisa fecha: 18-08-2010 a las 20:31:18. |
#5
|
||||
|
||||
Solved!
Gracias a todos por su apoyo!
Ya pude resolver el problema! |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Ayuda por favor | Nigth | Varios | 1 | 11-11-2008 14:20:48 |
Ayuda por favor | jcarteagaf | Varios | 5 | 27-06-2006 12:27:13 |
ayuda por favor ^^ ... | CrystalBlood | SQL | 1 | 19-01-2006 20:15:17 |
ayuda por favor | haffo | Varios | 2 | 14-10-2003 16:08:45 |
Ayuda por favor | jtellof | Conexión con bases de datos | 4 | 08-09-2003 21:56:24 |
|