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 - [email protected] https://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
