整數範圍的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;