Delphi整数范围的case语句

Question

我有一个函数,它传递一个整数值,表示一个步长值.我想测试5个单独的条件:值= 0值= 1值= -1值> 1值<-1

目前,这是作为一组if语句实现的,我想为case语句更改它.我对特定值的情况没有问题,甚至是有限的范围(例如1..10),但是我如何编写表示值> 1或值<-1的情况？

Answer 1

var
  MyValue: integer;

...

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