Error 46            Constant and Case Selector Mismatch              pp 322

 Source:  Compiler

 Cause:   The Case selector type does not match the constant.

 Remedy:  Examine the statement ahead of the error cursor for the above
          condition.


 ----------------------------------------------------------------------------


 Example:
       VAR
          Selector : Byte;                  { Selector is type Byte       }
          Choice   : Char;                  { Selector is type Char       }

       BEGIN
          Case Selector of
               1.0 : WriteLn ('Choice 1');  { Wrong - Constant is Real    }
               End;

          Case Choice of
               1   : WriteLn ('Choice 1');  { Wrong - Constant is Byte    }
               End;
       END.