The variant part of the record is always public

[ASerge]

Code: Pascal  [Select][+][-]

1. {$MODE OBJFPC}
2. {$MODESWITCH ADVANCEDRECORDS}
3.  
4. type
5.   TRec = record
6.   strict private
7.     case Selector: Byte of
8.       1: (PartInt: Integer);
9.       2: (PartBool: Boolean);
10.   end;
11.  
12. var
13.   R: TRec;
14. begin
15.   //R.Selector := 1; // project1.lpr(15,5) Error: identifier idents no member "Selector"
16.   R.PartInt := 55; // No error
17. end.

Please test this in the latest version of Delphi, is it the same in it?

[Thaddy]

Delphi 11 errors as it should.

[ASerge]

Delphi 11 errors as it should.

Thanks. https://gitlab.com/freepascal.org/fpc/source/-/issues/40824