Cita:
Empezado por ecfisa
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...