delphi - 如何使用 "case"语句而不是 "if"语句测试某个值是否在范围内？

Question

下面的if语句可以转换为case语句吗？

if (Number >= 5) and (Number <= 10) then
  lblAnswer.Caption := 'in range'
else
  lblAnswer.Caption := 'out of range';

<小时/>

我的回答:

是的，可以

case (number >= 5) and (Number <= 10) of
  lblAnswer.Caption := 'in range';
  lblAnswer.Caption := 'out of range';
end;

这是正确的吗？

Answer 1

如果 Number 具有某种整数数据类型，则:

case number of
5 .. 10: lblAnswer.Caption := 'in range';
else     lblAnswer.Caption := 'out of range';
end;