Genauigkeit Extended - Hilfe widerspricht sich

[Jonny5K]

Hi,

also bei mir (Delphi 7) sind es 20 Stellen.

Kannst du aber auch einfach Testen:

Delphi-Quellcode:

procedure Test;
var
  ext1, ext2: Extended;
begin
  ext1 := 0.12345678901234567891;//0.123456789012345678901
  ext2 := 0.12345678901234567892;//0.123456789012345678902
  if (ext1 = ext2) then
    showmessage('Gleich! => Weniger als 20 Stellen.')
  else
    showmessage('Ungleich! => Mehr oder 20 Stellen.');
end;

Also wenn ich das so laufen lasse, dann bekomme ich die Meldung "Mehr oder Stellen".
Wenn du die Auskommentierten Zahlen benutzt, sollte der Vergleich true ergeben und es sind dann
weniger als 21 stellen.

Gruß
Jonny