Record Serialization Unserialization

SaveLoadRecordJSON.dpr

program SaveLoadRecordJSON;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  Syncommons;

type
  TCliente = packed record
    Nombre : string;
    Direccion : string;
    Activo : boolean;
    ID : integer;
  end;

var
  Cliente : TCliente;
  Json : string;
begin
  // serialize
  Cliente.Nombre := 'Juan';
  Cliente.Direccion := 'Calle A';
  Cliente.Activo := true;
  Cliente.ID := 100;
  assert(RecordSaveJSON(Cliente,TypeInfo(TCliente)) = '{"Nombre":"Juan","Direccion":"Calle A","Activo":true,"ID":100}');

  // unserialize
  Json := '{"Nombre":"Joan"}';
  RecordLoadJSON(Cliente,Json,TypeInfo(TCliente));
  assert(Cliente.Nombre = 'Joan');

end.