Numero Mayor igual , Menor igual... Problema

[ZiriusB]

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