德尔福在案例陈述中落空

Question

在C中你可以做类似的事情

switch(x) {
  case 'a':
  case 'b': 
    printf("something");
  break;
  case 'c': 
    printf("else");
  break;
}

而在Delphi我试过了两个

 case x of
   'a': 
   'b': writeln('something');
   'c': writeln('else');
 end;

和

 case x of
   ['a','b']: writeln('something');
   'c': writeln('else');
 end;

但他们俩都行不通.

我虽然有不同的解决方案,例如编写程序并将其称为'a'和'b',但我想知道是否有更好的解决方案.我也可以使用goto,像这样:

 case x of
   'a': goto labelCaseB;
   'b': begin
          labelCaseB:
          writeln('something');
        end;
   'c': writeln('else');
 end;

并且它工作得很好,但在Delphi语言的case语句中,什么是"标准"解决方案？

当然,我的实际情况要复杂得多:在示例中,我会使用if-else;)

Answer 1

德尔福在案例陈述中没有落后.这是C和Delphi之间的主要区别之一.但在你的特殊情况下(抱怨双关语)你可以写

 case x of
   'a','b': begin
          writeln('something');
        end;
   'c': writeln('else');
 end;