Presición Imprecisa

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