Example code : Create simple javascript object with Records ex1

procedure TForm1.W3Button12Click(Sender: TObject);

var mbag1 : Variant;

begin

 asm

   @mbag1 = {};

   @mbag1["test"] = {};

   @mbag1["test"]["somevalue"] = 12;

   @mbag1["text"] = "this is a string value";

   console.log(@mbag1);

 end;

end;

Example code : Create simple javascript object with Records ex2

procedure TForm1.W3Button12Click(Sender: TObject);

var mbag2 : TMyBagContent;

begin

 mbag2.text := "this is a string value";

 mbag2.test.somevalue := 12;

 WriteLn(mbag2);

end;

Example code : Create simple javascript object with Records ex3

procedure TForm1.W3Button12Click(Sender: TObject);

var mbag3 : Variant;

begin

 mbag3:=TVariant.CreateObject;

 mbag3["test"] := TVariant.CreateObject;

 mbag3["test"]["somevalue"] := 12;

 mbag3["text"] := "this is a string value";

 WriteLn(mbag3);

end;