unit Classes;

interface

type
  TRecord<T> = record
    class operator Initialize(out aValue: TRecord<T>);
    class operator Implicit(aValue: T): TRecord<T>;
  private
    FValue: T;
  public
    constructor Create(const aValue: T);

    property Value: T read FValue;
  end;

  TRecordCollection<T: record> = record
    class operator Initialize(out aValue: TRecordCollection<T>);
  private
    FItems: TArray<T>;
  public
    constructor Create(const aItems: TArray<T>); overload;
    function First: TRecord<T>;
  end;

  TTest1 = record
    ID: Int32;
  end;

  TTest2 = record
    ID: Int32;
    Name: string;
    Description: string;
    Test: TTest1;
  end;

implementation

{ TRecord<T> }

class operator TRecord<T>.Initialize(out aValue: TRecord<T>);
begin
  aValue.FValue := Default(T);
end;

class operator TRecord<T>.Implicit(aValue: T): TRecord<T>;
begin
  Exit(TRecord<T>.Create(aValue));
end;

constructor TRecord<T>.Create(const aValue: T);
begin
  FValue := aValue;
end;

{ TRecordCollection<T> }

constructor TRecordCollection<T>.Create(const aItems: TArray<T>);
begin
  FItems := aItems;
end;

function TRecordCollection<T>.First: TRecord<T>;
begin
  Exit(FItems[0]);
end;

class operator TRecordCollection<T>.Initialize(out aValue: TRecordCollection<T>);
begin
  aValue.FItems := Default(TArray<T>);
end;

end.

procedure TForm1.Button1Click(Sender: TObject);
var
  Data: TArray<TTest2>;
  RC: TRecordCollection<TTest2>;
  R: TRecord<TTest2>;
  V: TTest2;
begin
  ReportMemoryLeaksOnShutdown := True;
  SetLength(Data, 2);
  Data[0].ID := 1;
  Data[0].Name := 'Name';
  Data[0].Description := 'Description';
  Data[0].Test.ID := 10;
  Data[1].ID := 2;
  Data[1].Name := 'Name';
  Data[1].Description := 'Description';
  Data[1].Test.ID := 20;
  RC := TRecordCollection<TTest2>.Create(Data);
  R := Rc.First();
  V := R.Value;
end;