Presición Imprecisa

[donald shimoda]

Empezado por juanmdq

Hola, escribo porque desde hace un tiempo tengo unos problemillas con delphi comparando valores con presición. Ej: comparo 72.49 = 72.49, ambos double, y no siempre me da que son iguales. Varia de acuerdo a como voy calculando los números, por lo general se mama cuando sumo dos listas y luego comparo sus totales.

Buscando encontre este ejemplo de mala praxis de Delphi:

var a, b, c: double;
begin
   a := 0;
   b := 0.01;
   c := 0;
   while c < 1000000 do
   begin
      a := a + b;
      c := c + 1
   end;
   writeln(a);
end;

Alguien tiene idea de como se puede solucionar este inconveniente ?

Proba con la función CompareValue.

CompareValue(a,b);

Espero te sirva.

P.D. Aguante el avatar de pampita... que mujer... pensar que me la lleva puesta en la calle saliendo de un cliente en Recoleta. Creo que le deje marcado el botón de mi camisa en el pecho.

Saludos.