पूर्णांक के लिए डेल्फी केस स्टेटमेंट

Question

मेरे पास एक ऐसा फ़ंक्शन है जो एक पूर्णांक मान को पारित किया जा रहा है, जो एक चरण मान का प्रतिनिधित्व करता है। वहाँ 5 अलग स्थितियों मैं के लिए परीक्षण करना चाहते हैं: मूल्य = 0 मूल्य = 1 मूल्य = -1 मूल्य> 1 मूल्य < -1

वर्तमान में यह, बयान करता है, तो का एक सेट के रूप में कार्यान्वित किया जाता है और मैं इसे केस स्टेटमेंट के लिए बदलना चाहता हूं। मुझे विशिष्ट मूल्य मामलों, या यहां तक ​​कि एक सीमित सीमा (1. 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;