program Project11;

{$APPTYPE CONSOLE}

uses
  system.sysutils,
//  mormot,
//  SynCommons;
  mormot.core.json,
  mormot.core.rtti,
  mormot.core.text,
  mormot.core.variants;

type
  TToJson = class(TSynAutoCreateFields)
  private
    FFloatLong: Extended;
    FFloatShort: Extended;
  published
    property FloatLong: Extended read FFloatLong write FFloatLong;
    property FloatShort: Extended read FFloatShort write FFloatShort;
  end;

var
  AsObj: TToJson;
  J: UTF8String;
  D: TDocVariantData;
begin
  try
    AsObj := TToJson.Create;
    try
      AsObj.FloatLong := Pi;
      AsObj.FloatShort := 3.1415;

      J := ObjectToJson(AsObj, [woEnumSetsAsText]);
      Writeln(J);

      D.InitJson(J);
      Writeln(D.Value[0]);

      D.Value['Pi'] := Pi;
      Writeln(D.ToJson());
    finally
      AsObj.Free;
    end;
  except
    on e: exception do writeln(e.message);
  end;

  readln;
end.