mORMot Open Source

type
  TTestEnum = (a=3, b=7, c=13);
  TTestRec = packed record
    aint: Integer;
    aenum: TTestEnum;
  end;

procedure TForm1.Button1Click(Sender: TObject);
var
  LRec: TTestRec;
  LJson: string;
begin
  LRec.aint := 99;
  LRec.aenum := TTestEnum.b;
  LJson := string(mormot.core.json.RecordSaveJson(LRec, TypeInfo(TTestRec)));
  // serialized as '{"aint":99,"aenum":"07"}'
end;

type
  TRec = packed record
    int: Integer;
    Val: Variant; // sometimes NULL sometimes a record
  end;

  TRec2 = packed record
    Percentage: Double;
  end;

procedure TForm1.FormCreate(Sender: TObject);
var
  LRec: TRec;
  LRec2: TRec2;
  LRecJson, LRec2Json: string;
begin
  LRec2.Percentage := 1.5;
  LRec2Json := string(mormot.core.json.RecordSaveJson(LRec2, TypeInfo(TRec2)));

  LRec.int := 123;
  LRec.Val := LRec2Json;
  LRecJson := string(mormot.core.json.RecordSaveJson(LRec, TypeInfo(TRec)));
end;

{"int":123,"Val":"{\"Percentage\":1.5}"}

{"int":123,"Val":{"Percentage":1.5}}

uses
  mormot.core.base,
  mormot.core.json;

type
  TTest = packed record
    adate: TDate;
  end;

procedure TForm1.Button1Click(Sender: TObject);
const
  cTest = '{"adate":"2025-01-01"}';
var
  LData: TTest;
begin
  mormot.core.json.RecordLoadJson(LData, RawUtf8(cTest), TypeInfo(TTest));
end;

  THuginTPSSaleOrderSaleItem = packed record
    Quantity: Double;
    Amount: Double;
    PLUNo: Integer;
    DepartmentId: Integer;
    VatRate: Double;
  end;

    {
      "Quantity": "2.00",
      "Amount": "10.00",
      "PLUNo": 1,
      "DepartmentId": 1,
      "VatRate": 0,
    }

function EncryptItAES(const s: string; const AKey: TBytes): string;
var
  Key: TSHA256Digest;
  Aes: TAESCFB;
  _s: RawByteString;
begin
  Result := EmptyStr;
  Key := SHA256Digest(Pointer(AKey), Length(AKey));
  Aes := TAESCFB.Create(Key, 256);
  try
    _s := StringToUTF8(s);
    _s := BinToBase64(Aes.EncryptPKCS7(_s, True));
    Result := UTF8ToString(_s);
  finally
    Aes.Free();
  end;
end;

{
  "optionUuid": "57202ea4-cc62-4eff-bbea-fa5be41449ee",
  "optionName": "Tuzsuz",
  "optionPrice": 5.2,
  "isSelected ": true
}

  TOrderProductNote = packed record
    optionUuid: string;
    optionName: string;
    optionPrice: Double;
    isSelected: Boolean;
  end;

procedure TForm2.Button1Click(Sender: TObject);
var
  Response: TOrderProductNote;
  TempString: string;
begin
  TempString := '{"optionUuid": "57202ea4-cc62-4eff-bbea-fa5be41449ee","optionName": "Tuzsuz","optionPrice": 5.2,"isSelected ": true}';
  if not SynCommons.RecordLoadJSON(Response, RawUTF8(TempString), TypeInfo(TOrderProductNote)) then
    ShowMessage('FAILED!')
  else
    ShowMessage('OK');
end;

                "optionCategories": [
                    {
                        "optionCategory": "5dd28622e0450549407168f4",
                        "name": {
                            "tr": "1. Tantuni Tercihi",
                            "en": "1. Tantuni Tercihi"
                        },
                        "options": [
                            {
                                "option": "5dd28622e045052fb27168f6",
                                "product": "5dd28614c424f0658e8cedb8",
                                "name": {
                                    "tr": "Yarım Ekmek Et Tantuni",
                                    "en": "Yarım Ekmek Et Tantuni"
                                },
                                "price": 0,
                                "optionCategories": [
                                    {
                                        "optionCategory": "5dd28614c424f010da8cedb9",
                                        "name": {
                                            "tr": "Porsiyon Tercihi",
                                            "en": "Porsiyon Tercihi"
                                        },
                                        "options": [
                                            {
                                                "option": "5dd28614c424f05bd58cedbc",
                                                "name": {
                                                    "tr": "1 Porsiyon",
                                                    "en": "1 Porsiyon"
                                                },
                                                "price": 0
                                            }
                                        ]
                                    }
                                ]
                            }
                        ]

                    {
                        "optionCategory": "5dd28622e04505a7b37168ee",
                        "name": {
                            "tr": "İçecek Tercihi",
                            "en": "İçecek Tercihi"
                        },
                        "options": [
                            {
                                "option": "5dd28622e045052a3f7168ef",
                                "product": "5dd2861f35e9bba43d19b039",
                                "name": {
                                    "tr": "Eker Ayran (300 ml)",
                                    "en": "Eker Ayran (300 ml)"
                                },
                                "price": 0
                            }
                        ]
                    }

  TName = packed record
    tr: string;
    en: string;
  end;

  TOption = packed record
    option: string;
    product: string;
    name: TName;
    price: Double;
  end;
  TOptions = TArray<TOption>;

  TOptionCategory = packed record
    optionCategory: string;
    name: TName;
    options: TOptions;
  end;
  TOptionCategories = TArray<TOptionCategory>;

uses
  SynCrypto;

const
  TestArray: Array [0..5] of Byte = (1, 2, 3, 4, 5, 6);
  TestBytes: TBytes = [1, 2, 3, 4, 5, 6];


procedure TForm1.Button1Click(Sender: TObject);
var
  Sha2561: TSHA256Digest;
  Sha2562: TSHA256Digest;
begin
  Sha2561 := SHA256Digest(Pointer(@TestArray), SizeOf(TestArray));
  Sha2562 := SHA256Digest(Pointer(@TestBytes), Length(TestBytes)); // For TBytes I must use Length, SizeOf always returns 4 
  if not CompareMem(@Sha2561, @Sha2562, 32) then
    ShowMessage('different')
  else
    ShowMessage('identical');
end;

Pointer(@TestArray)

@TestArray

type
  TTicker = packed record
    symbol: RawUTF8;
    highPrice: Double;
    lowPrice: Double;
  end;
  TTickers = Array of TTicker;

const
  __TTickers = '[symbol RawUTF8 highPrice Double lowPrice Double]';


initialization
  TTextWriter.RegisterCustomJSONSerializerFromText(TypeInfo(TTickers), __TTickers);
end;

TTicker text definition is not accurate, or the type has not been defined as packed record: RTTI size is 20 bytes but text definition covers 0 bytes

{"name":"test","surname":"test"}

type
  TPerson = packed record
    surname: string;
    name: string;
  end;