JSONMarshal/Unmarshal; TJSONObject.ParseJSONValue Parser Fehler bei NaN / MAXVALUE

[Rollo62]

Hallo zusammen,

ich teste gerade die JSON Serializer, und denke das es ein Problem mit dem
Parsen von den Konstanten z.B. Double.NaN oder Double.MAXVALUE gibt.
Selbst Double.MAXVALUE-1 oder Single.MAXVALUE akzeptiert er nicht.

Dafür geht es aber mit Interger.MAXVALUE.

Normale Zahlen funktionieren hervorragend, aber die speziellen Konstanten machen Ärger.

Wie könnte ich den Parser überreden das NaN auch korrekt zu Parsen.
Womöglich geht das nur mit einem TJSONUnMarshal.RegisterReverter.

Falls jemand eine Lösung hate ich für einen Tip in die richtige Richtung sehr dankbar.

Anbei ein kleines Demo, mit verschiedenen Testfällen.

Rollo

[Der schöne Günther]

Ü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.

[Rollo62]

Das scheint in der Parse Routine zu haken:

Delphi-Quellcode:

class function TTestMarshal_Parcel.Unmarshal_FromString(value: String): TTestMarshal_Parcel;
var
  LJson: TJSONObject;
begin
    LJson := TJSONObject.Create;

    try
        LJson := TJSONObject.ParseJSONValue( value ) as TJSONObject; // HIER komt nil

        Result := InternalUnmarshal_FromObject( LJson )

    finally
        LJson.Free;
    end;
end;

Wenn im Value NaN, oder sogar nur Single.MAXVALUE (natürlich als Zahl) steht kommt nil raus.
Andere Zahlen funktionieren.
Mit der Test-Anwendung kann man die Unterschiede sehen Test1 ist OK, die andenen stimmen nicht exakt überein.

Haben denn die JSON-Funktionen ganz andere Zahlenräume als die normalen Delphi Variablen ?
Ich bin davon ausgegaben das Objekte mit dem Serializer und Unserializer 1:1 hergestellt werden können, oder gibt es da ansonsten einen Fehler ?

Rollo

[Zacherl]

Zitat von Rollo62:

Ich bin davon ausgegaben das Objekte mit dem Serializer und Unserializer 1:1 hergestellt werden können, oder gibt es da ansonsten einen Fehler ?

So sollte es in einer fehlerfreien Implementierung auch sein. Würde ich definitiv als Bug ansehen. Eine weitere "Eigenart" wurde letztens auch festgestellt: Und zwar werden leere Arrays nicht als "[]", sondern als "null" serialisiert (de-serialisiert aber zumindest korrekt).