Declaración de caso Delphi para rangos enteros

Question

Tengo una función a la que se le pasa un valor entero, que representa un valor de paso. Hay 5 condiciones separadas quiero probar para: Valor = 0 Valor = 1 Valor = -1 valor> 1 Valor < -1

Actualmente esto se implementa como un conjunto de sentencias if, y Me gustaría cambiar esto por una declaración de caso. No tengo problemas con los casos de valor específico, o incluso un rango limitado (digamos 1..10), pero ¿cómo escribo un caso que representa Valor> 1 o Valor < -1?

Answer 1

var 
    MyValue: integer; 

... 

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