Как создать несколько условий в команде Case?

Question

Пример:

var
 Msg: Cardinal;
case Msg of
      WM_CHAR:
      WM_KEYDOWN:
      WM_KEYUP:
        begin
         // Do something
        end;

    end;

Answer 1

Используйте запятые для разделения меток:

var
  Msg: Cardinal;
... 
case Msg of
  WM_CHAR,
  WM_KEYDOWN,
  WM_KEYUP:
    begin
      // Do something
    end;
end;

Как упоминалось @SertacAkyuz, если значения являются последовательными, вы можете сделать что-то вроде:

case Msg of
  WM_KEYDOWN .. WM_CHAR: // range 
    begin
      // Do something
    end;
end;

Answer 2

Если вы хотите, чтобы "Do Something" выполнялся во всех трех случаях, вы должны разделить метки случая запятой:

var
  Msg: Cardinal;

case Msg of
  WM_CHAR,
  WM_KEYDOWN,
  WM_KEYUP:
        begin
         // Do something
        end;
end;