6.76609068141504e-318

[TiGü]

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  System.Math;

var
    AValue: Double;

begin
  try
    AValue := 6.76609068141504e-318;
    Writeln(AValue);
    if IsZero(AValue) then
    begin
        AValue := 0;
    end;
    Writeln(AValue);
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  Readln;
end.