bei mir ist folgendes ungleich:
Delphi-Quellcode:
var
a, b: Real;
begin
a := 12345789.987654321;
b := 24691357.9975308642 / 2;
if a = b then
Writeln('gleich')
else
Writeln('ungleich');
Readln;
end.
Edit1:
Nach der Delphi 7
PE Hilfe ist Double = Real.