An if you eventually need a read only UnionField :

 TmByte= packed array[0..7] of Byte;
 TDataExample2
 =
  record
    internal
    :
     record
       case integer
       of
         0: (mData: Int64);
         1: (mByte: TmByte);
     end;
   property mByte     : TmByte read internal.mByte;
   property UnionField: Int64  read internal.mData;
  end;

_______________________________________________
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
https://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal

Reply via email to