Programación General > Delphi

 Una Ayudita

(1/1)

althenna:
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!!!!

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

althenna:

--- Cita de: "GatoSoft" ---
 
--- Fin de la cita ---
muchas gracias ya pude contiuar con mi programa realmente se te agradece gatosoft

Navegación

[0] Índice de Mensajes