unit Decl;

interface

uses
  mormot.orm.core;

type
  TPpCallSecurityRight = packed record
    Value: Int64;
  end;

  // works
  // TPpCallSecurityRightList = array of TPpCallSecurityRight;

  // ERttiException: Unknown type Fail: TArray
  TPpCallSecurityRightList = TArray<TPpCallSecurityRight>;

  TMyClass = class(TOrm)
  private
    FSomeStr: UTF8String;
    FFail: TPpCallSecurityRightList;
  published
    property SomeStr: UTF8String read FSomeStr write FSomeStr;
    property Fail: TPpCallSecurityRightList read FFail write FFail;
  end;

procedure Test;

implementation

uses
  mormot.core.rtti;

procedure Test;
var
  OrigRtti, NewRtti: TRttiCustom;
  PropText: UTF8String;
begin
  OrigRtti := Rtti.RegisterClass(TMyClass);
  for var Prop in OrigRtti.Props.List do
    PropText := PropText + Prop.Name + ':' + Prop.Value.Name + ';';
  OrigRtti.Free;

  Writeln(PropText);
  Writeln;

  NewRtti := TRttiCustom.CreateFromText(PropText);
  for var Prop in NewRtti.Props.List do
    Writeln(Prop.Name + ': ' + Prop.Value.Name + ';');
  NewRtti.Free;
end;

end.