TJSONValue und Dezimalzahlen

[Der schöne Günther]

Zitat von Codehunter:

und bei (TJSONValue as TJSONNumber).ToString den Wert "123,40"

Also bei mir kommt 1:1 raus was im Json steht. Delphi 10 Seattle.

Delphi-Quellcode:

procedure p();
const
   input = '{"key":123.4}';
var
   jsonObject: TJSONObject;
   jsonNumber: TJSONNumber;
begin
   jsonObject := TJsonObject.ParseJSONValue(input) as TJSONObject;
   jsonNumber := jsonObject.Values['key'] as TJSONNumber;
   WriteLn( jsonNumber.ToString() ); // Ergibt "123.4"
end;

Beinhaltet dein "Originalschreibweise" auch dass eine "123.4000" nicht als "123.4" ausgegeben werden darf?