如何对案例进行多种变化

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 相同，如果 number 是 10、17 或 18，则您将跳过 message 的赋值，这就是您真正的意思想要吗？