TQwordOverlay¶

type
  TQwordOverlay = bitpacked record
    case Integer of
      0: (
        AsBit : Array[TQwordBitIndex] of Boolean;
      );
      1: (
        AsNibble : Array[TQwordNibbleIndex] of nibble = 0..15;
      );
      2: (
        AsByte : Array[TQwordByteIndex] of Byte;
      );
      3: (
        AsWord : Array[TQwordWordIndex] of Word;
      );
      4: (
        AsDword : Array[TQwordDwordIndex] of DWord = LongWord;
      );
      5: (
        AsQword : QWord;
      );
      6: (
        AsByteOverlay : Array[TQwordByteIndex] 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;
      );
      7: (
        AsWordOverlay : Array[TQwordWordIndex] of 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;
      );
      8: (
        AsDwordOverlay : Array[TQwordDwordIndex] of TDwordOverlay = bitpacked record
        case Integer of
        0: (
          AsBit : Array[TDwordBitIndex] of Boolean;
        );
        1: (
          AsNibble : Array[TDwordNibbleIndex] of nibble = 0..15;
        );
        2: (
          AsByte : Array[TDwordByteIndex] of Byte;
        );
        3: (
          AsWord : Array[TDwordWordIndex] of Word;
        );
        4: (
          AsDword : DWord;
        );
        5: (
          AsByteOverlay : Array[TDwordByteIndex] 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;
        );
        6: (
          AsWordOverlay : Array[TDwordWordIndex] of 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;
        );
        end;
      );
  end;