TWordOverlay¶

type
  TWordOverlay = bitpacked record
    case Integer of
      0: (
        AsBit : Array[TWordBitIndex] of Boolean;
      );
      1: (
        AsNibble : Array[TWordNibbleIndex] of nibble = 0..15;
      );
      2: (
        AsByte : Array[TWordByteIndex] of Byte;
      );
      3: (
        AsWord : Word;
      );
      4: (
        AsByteOverlay : Array[TWordByteIndex] of TByteOverlay = bitpacked record
        case Integer of
        0: (
          AsBit : Array[TByteBitIndex] of Boolean;
        );
        1: (
          AsNibble : Array[TByteNibbleIndex] of nibble = 0..15;
        );
        2: (
          AsByte : Byte;
        );
        end;
      );
  end;