Einzelnen Beitrag anzeigen

Der schöne Günther

Registriert seit: 6. Mär 2013
5.907 Beiträge
 
Delphi 10 Seattle Enterprise
 
#2

AW: JSONMarshal/Unmarshal; TJSONObject.ParseJSONValue Parser Fehler bei NaN / MAXVALU

  Alt 17. Mär 2017, 17:27
Über +/- INF und NaN kann man sich aber auch nicht beschweren, finde ich. Die sind zwar in der entsprechenden IEEE-Norm beschrieben, aber kein Teil von JSON.

Und mit Single.MaxValue habe ich kein Problem:
Delphi-Quellcode:
program Project19;

{$APPTYPE CONSOLE}

{$R *.res}


uses
   System.SysUtils,
   System.Json,
   System.Math;

procedure p();
var
   asFloat:      Single;
   asJson:         TJSONValue;
   asFloatAgain:   Single;
begin
   asFloat := Single.MaxValue;
   asJson := TJSONNumber.Create(asFloat);
   asFloatAgain := asJson.GetValue<Single>();

   Assert( SameValue(asFloat, asFloatAgain, Single.Epsilon) );
end;

begin
   p();
end.

Geändert von Der schöne Günther (17. Mär 2017 um 17:29 Uhr)
  Mit Zitat antworten Zitat