mORMot Open Source

Hello

There is a problem with JSON generated by VariantSaveJSON when user changed decimal point to comma for English(United States) format in regional settings window.
In this case TTextWriter.AddDouble produces text with comma what makes JSON invalid.

procedure TForm1.FormShow(Sender: TObject);
var
  V: variant;
begin
  TDocVariant.New(V);
  V.num := 1.123456;
  Memo1.Lines.Add(VariantSaveJSON(v));
end;

The output is:

{"num":1,123456}

The solution is to add:

SettingsUS.DecimalSeparator := '.';

in SynCommons.InitSynCommonsConversionTables after SettingsUS initialization.