delphi - 如何对案例进行多种变体

Question

我正在使用 delphi 运行以下代码:

if (number> 8) and (number< 10) then
    message:= 'first option'
else if (number> 11) and (number< 17) then
    message:= 'second option'
else if (number> 18) then
    message:= 'third option';

我需要执行确切的代码，但使用 case，我正在尝试但没有找到任何解释如何执行此操作的内容:

case idade of
(case > 8 and case< 10) : message:= 'first option';
(case > 11 and case< 17) : message:= 'second option';
(case > 18) : message:= 'third option';
end;

我也尝试搜索有关案例的问题，但我想我也没有找到找到此答案的正确方法。

Answer 1

使用 case 可以得到最接近该结果的值语句看起来像这样:

case idade of
  9: message := 'first option';
  12..16: message := 'second option';
else
  if idade > 18 then
    message := 'third option';
end;

或者这个(感谢@AndreasRejbrand):

case idade of
  9: message := 'first option';
  12..16: message := 'second option';
  19..MaxInt{idade.MaxValue}: message := 'third option';
end;

您可能想阅读 Embarcadero 的文档，了解如何 Case Statements实际工作。

请注意，在原始代码中，if (number> 8) and (number< 10) then与if (number = 9) then相同，并且您正在跳过 message 的分配如果number是 10、17 还是 18，这是您真正想要的吗？