Ver Mensaje Individual
  #13  
Antiguo 27-06-2011
ZiriusB ZiriusB is offline
Miembro
 
Registrado: oct 2010
Posts: 86
Reputación: 15
ZiriusB Va por buen camino
Cita:
Empezado por ecfisa Ver Mensaje
Hola.

El error sucede en esta línea:
Código Delphi [-]
if (strtoint(npromedio.Text)>=0) and (strtoint(npromedio.Text)<=34,99) then

Y es por que npromedio.Text puede asumir un valor real, por lo tanto la comparación correcta es:
Código Delphi [-]
if (StrToFloat(npromedio.Text) >= 0) and (StrToFloat(npromedio.Text) <= 34,99) then

Saludos.

Código Delphi [-]
if (StrToFloat(npromedio.Text)>=0) and (StrToFloat(npromedio.Text)<=34.99) then
npromedio.Text:='0';

Exacto, lo cambie en todos y listo...ademas de cambiar la "," por el "."

Gracias amigos...
__________________
"Ningun precio es alto por el privilegio de ser uno mismo..."

Última edición por ZiriusB fecha: 27-06-2011 a las 18:35:02.
Responder Con Cita