Numero Mayor igual , Menor igual... Problema

[ZiriusB]

Empezado por oscarac

me ha pasado que cuando se utilizo cadenas (con numeros) para comparaciones, se genera algun tipo de inconsistencia

trata de pasar las cadenas a numero

Código Delphi [-]
 
if (strtoint(npromedio.Text)>=0) and (strtoint(npromedio.Text)<=34,99) then
begin
npromedio.Text:='0'
end

Me genera un error

[DCC Error] Evaluacion.pas(684): E2008 Incompatible types

[[oscarac]]

no sera 34.99 en lugar de 34,99?

[ZiriusB]

Empezado por oscarac

no sera 34.99 en lugar de 34,99?

Creo que es por esto:

Código Delphi [-]
npromedio.text := Floattostr(StrToFloat(edit13.Text) +  StrToFloat(edit14.Text));

Es una linea que tengo antes de el primer codigo que pase...

[ecfisa]

Me genera un error

[DCC Error] Evaluacion.pas(684): E2008 Incompatible types

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.

[[oscarac]]

bueeeeeenoooo
la cosa estaba por ahi gracias ecfisa

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