FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Comprobar que es Integer
Buenos días, necesito comprobar que un número introducido desde teclado en un TEdit es realmente un Integer. Alguien sabe cómo puedo hacerlo o cómo puedo recibir la Exception "EConvertError" que me hace cerrar la ejecución de la aplicación??
Mil gracias |
#2
|
|||
|
|||
// Código no comprobado
try Valor := StrToInt(Edit1.Text); Result := True; except on E:EConvertError do: Result := False; end; |
#4
|
||||
|
||||
intenta con este código en el evento OnKeyPress del TEdit
espero que te sirva... a mi me funciona de maravilla
__________________
BlueSteel |
#5
|
|||
|
|||
hola,
tambien se puede hacer con algo de algoritmizacion, es decir, un integer solo tiene 32 bit = 4 byte. si al numero que lees del edit, le restas 1 hasta que sea menos que 1, entoces comprobando despues si es 0 o no, sabras si es integer o no, en el peor de los caso tendras que restar 2 a la 32 veces, relativamente rapido: repeat i := i - 1; until i menor que 1 if i = 0 then es integer. Saludo... |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
comprobar datos en DBgrid | coleleon | OOP | 1 | 11-12-2005 13:28:49 |
comprobar si una sentencia SQL es válida | Lionel | SQL | 5 | 29-03-2004 17:24:54 |
Comprobar la conexion al servidor de bd | fjolivares | Conexión con bases de datos | 5 | 30-01-2004 11:01:14 |
comprobar?? | botones67 | Varios | 5 | 03-10-2003 21:09:05 |
comprobar?? | botones67 | Conexión con bases de datos | 2 | 03-10-2003 19:29:21 |
|