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