정수 범위에 대한 델파이 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;