Comparar 2 numeros

[Onti]

Te recomiendo usar las Rx

[jzginez]

Ya baje e instale los Rx voy a probarlas pero ahorita por lo avanzado y urgente del proyecto tuve que hacer el siguiente cambio

Código Delphi [-]
 if (ADOFacturasSaldo.Value < Monto)

por

 if ((ADOFacturasSaldo.Value+0.00001) < Monto)

como verán no es la mejor solución pero mientras el cliente prueba el demo me da tiempo de probar bien y hacer el cambio usando los RX

[DriverOp]

Me parece que el problema de fondo es de redondeo. Trata de hacer pasar ambos valores por la función RoundTo() al momento de comparar. Por ejemplo:

Código Delphi [-]
if (RoundTo(ADOFacturasSaldo.Value,-2) < RoundTo(Monto,-2)) then
...

Redondea en la segunda cifra decimal.

Ahora el chivo

En mi página web tengo un componente desendiente de TEdit que solo captura números enteros o reales y hace la conversión automáticamente, también previene que el usuario escriba otra cosa que no sea números, punto o coma y los signos mas o menos. Se llama TEditReal.

[jzginez]

Hola DriverOp gracias tu solución funciono de maravilla y me ahora el tener que estar cambiando componentes, aunque ya instale los Rx y se ven interesantes, te comento que el TEdit que uso es muy parecido a tu componente, de este foro obtuve el código hacerlo nada mas que no lo lleve al nivel de componente sino que escribí todo el código dentro del código de mi ventana.


Gracias por tu ayuda