整数范围的Delphi case语句

Question

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

目前这被实现为一组的if语句，和我想要改变这个案例陈述。我对具体的价值案例，甚至是有限的范围（比如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;