Delphi整数范围的case语句

Question

我有一个传递整数值的函数，表示一个步长值。 我想测试5个单独的条件： 值= 0 值= 1 值= -1 值> 1 值＆lt; -1

目前这是作为一组if语句实现的，我想更改一个case语句。我对特定值案例，甚至是有限范围（比如1..10）都没有问题，但我如何编写表示Value＆gt; 1或Value＆lt; -1？

的案例

Answer 1

var
  MyValue: integer;

...

case MyValue of
  Low(Integer)..-2:
    beep;
  -1:
    beep;
  0:
    beep;
  +1:
    beep;
  2..High(Integer):
    beep;
end;