Comprobar que es Integer

[Alexis7788]

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

[mensana]

// Código no comprobado

try
Valor := StrToInt(Edit1.Text);
Result := True;
except
on E:EConvertError do: Result := False;
end;

[[Bicho]]

Tambien puedes usar la función TrsStrToInt que devuelve false si no se puede convertir a entero y te ahora la excepción.

Tambien le puede echar un vistazo a éste hilo, a ver si te puede ayudar.

Saludos

[[BlueSteel]]

intenta con este código en el evento OnKeyPress del TEdit

Código Delphi [-]
     If Key in ['0'..'9']=false then
     If Key<>#8 then key:=#0;

espero que te sirva... a mi me funciona de maravilla

[xelip]

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...