unit Unit2;

interface

uses
 Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
 Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, superobject;

type
 TForm2 = class(TForm)
  Button1: TButton;
  procedure Button1Click(Sender: TObject);
 private
  { Private declarations }
 public
  { Public declarations }
 end;

var
 Form2: TForm2;

implementation

{$R *.dfm}

type
 TTest = record
  Test1: string;
  Test2: integer;
 end;

procedure TForm2.Button1Click(Sender: TObject);
var
 Ctx: TSuperRttiContext;
 X: ISuperObject;
 Test: TTest;
begin
 Test.Test1 := 'test';
 Test.Test2 := 100;
 Ctx := TSuperRttiContext.Create;
 try
  x := Ctx.AsJson<TTest>(Test);
  ShowMessage(x.AsString);
 finally
  FreeAndNil(Ctx);
 end;
end;

end.

type
 TTest = record
  Test1: string;
  Test2: integer;
 end;
 TArrTest = array of TTest;

procedure TForm2.Button1Click(Sender: TObject);
var
 Ctx: TSuperRttiContext;
 X: ISuperObject;
 Test: TArrTest;
begin
 SetLength(Test, 2);
 Test[0].Test1 := 'test 0';
 Test[0].Test2 := 0;
 Test[1].Test1 := 'test 1';
 Test[1].Test2 := 1;
 Ctx := TSuperRttiContext.Create;
 try
  x := Ctx.AsJson<TArrTest>(Test);
  ShowMessage(x.AsString);
 finally
  FreeAndNil(Ctx);
 end;
end;