SoloCodigo
Programación General => Delphi => Mensaje iniciado por: althenna en Lunes 12 de Abril de 2004, 22:16
-
hola soy nueva. yada yada yada
mi problema es quetengo varias cajas de texto tomo la informacion para hacer una operacion de divicion
resultado =texb1/texb2
bueno ese no es en si el problema
quiero saber si mi resultado es un valor con decimales o no... como le puedo decir
if resultado = entero entonces
ayuda por favor!!!!
-
Podrias probar utilizando la función Trunc(), que recibe como parametro un valor real y devuelve el valor truncado, o sea sin decimales... y lo utilizarias de la siguiente manera:
vResultado:=Variable1 / Variable2;
if Trunc(vResultado)=vResultado then
Showmessage('Es entero')
else
Showmessage('No Es entero');
el truco esta en preguntar si el numero truncado es igual al numero sin truncar... si es asi es por que el numero es un entero...
Prueba si te funciona..
Un saludo...
-
muchas gracias ya pude contiuar con mi programa realmente se te agradece gatosoft