Source position: syshelph.inc line 598
type TDwordOverlay = bitpacked record |
case Integer of |
0: ( |
AsBit: array [TDwordBitIndex] of Boolean; |
); |
1: ( |
AsNibble: array [TDwordNibbleIndex] of nibble; |
); |
2: ( |
AsByte: array [TDwordByteIndex] of Byte; |
); |
3: ( |
AsWord: array [TDwordWordIndex] of Word; |
); |
4: ( |
AsDword: DWord; |
); |
5: ( |
AsByteOverlay: array [TDwordByteIndex] of TByteOverlay; |
); |
6: ( |
AsWordOverlay: array [TDwordWordIndex] of TWordOverlay; |
); |
end; |