program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  mormot.core.json,
  mormot.core.text;

type
  TTest = class(TSynAutoCreateFields)
  private
    FFloat: Extended;
  published
    property Float: Extended read FFloat write FFloat;
  end;

var
  About: TTest;
begin
  About := TTest.Create;
  About.Float := 0.434797083333224;
  Writeln(ObjectToJson(About));
  About.Free;

  Readln;
end.