TJSONValue und Dezimalzahlen

[Der schöne Günther]

So ungefähr?

Delphi-Quellcode:

type
   TJsonObjectHelper = class helper for System.JSON.TJSONObject
      function FindPair(const PairName: String): TJSONPair;
   end;

procedure p();
const
   input = '{"key": 123.400}';
var
   jsonObject: TJSONObject;
   jsonPair: TJSONPair;
begin
   jsonObject := TJsonObject.ParseJSONValue(input) as TJSONObject;
   try
      jsonPair := jsonObject.FindPair('key');
      WriteLn( jsonPair.JsonValue.ToString() ); // Ergibt "123.400"
   finally
      jsonObject.Destroy();
   end;
end;

{ TJsonObjectHelper }

function TJsonObjectHelper.FindPair(const PairName: String): TJSONPair;
var
  Candidate: TJSONPair;
  I: Integer;
begin
  for I := 0 to Count - 1 do
  begin
   Candidate := TJSONPair(self.FMembers[I]);
   if (Candidate.JsonString.Value = PairName) then
   begin
     Exit(Candidate);
   end;
  end;
  Result := nil;
end;

[himitsu]

Warum liest du das dann nicht einfach als Zahl (Float) aus und konvertierst selber?

Ansonsten geht es halt über die globalen FormatStettings.
Lösung: Stell dein Windows auf englisch um und schon hast du deine 123.4

[Codehunter]

Zitat von himitsu:

Warum liest du das dann nicht einfach als Zahl (Float) aus und konvertierst selber?

Dass die Anforderung überhaupt besteht ergibt sich aus der verqueren Schnittstellenspezifikation. Mehrere Felder haben kontextabhängig unterschiedliche Anzahl Dezimalstellen und bei Antworten bestehen sie auch auf ebensolche, selbst wenn 123.000000 zurückgegeben werden muss. FormatSettings kann ich also nicht hardcoded verwenden

[himitsu]

Wenn, dann müssen sie die Zahlen eben als String speichern und nicht als Float.
Alles andere wiederspricht grob fahrlässig der Spezifikation des JSON.

Wenn der Nummeric-Typ den Wert nunmal auch Nummerisch speichert, dann gehen beim Einlesen automatisch sämtliche Informationen über führende/folgende Nullen verloren.
Kein "ordentlicher" JSON-Parser/Konverter wird sowas ohne Informationsverlust einlesen und schon garnicht speichern können.
Fazit: Du mußt den ganzen JSON-String selbst parsen und behandeln.

[Codehunter]

Zitat von himitsu:

Alles andere wiederspricht grob fahrlässig der Spezifikation des JSON.
[...]
Fazit: Du mußt den ganzen JSON-String selbst parsen und behandeln.

Hehe, das gebe ich mal so an den Dienstanbieter weiter. Eigentlich sind die ganz umgänglich und haben schon Anpassungen auf meine Anfrage hin gemacht. Aber bei den Floats sind sie eigen. Dass man die Dezimalgenauigkeit an der Stringdarstellung festmacht, hatte ich so auch noch nicht ^^

[Fritzew]

Zitat:

Hehe, das gebe ich mal so an den Dienstanbieter weiter. Eigentlich sind die ganz umgänglich und haben schon Anpassungen auf meine Anfrage hin gemacht. Aber bei den Floats sind sie eigen. Dass man die Dezimalgenauigkeit an der Stringdarstellung festmacht, hatte ich so auch noch nicht ^^

Schick Ihnen einreich einen Link zur RFC Sowas wie
https://tools.ietf.org/html/rfc7159