Tuyên bố trường hợp Delphi cho các dãy số nguyên

Question

Tôi có một hàm đang được chuyển một giá trị số nguyên, đại diện cho một giá trị bước. Có 5 điều kiện riêng biệt Tôi muốn thử nghiệm cho: Value = 0 Value = 1 Value = -1 Value> 1 Value < -1

Hiện nay điều này được thực hiện như một tập hợp các câu lệnh if, và Tôi muốn thay đổi điều này cho một tuyên bố trường hợp. Tôi không có vấn đề với các trường hợp giá trị cụ thể, hoặc thậm chí một phạm vi giới hạn (nói 1..10) nhưng làm thế nào để tôi viết một trường hợp đại diện cho Value> 1, hoặc Value < -1?

Answer 1

var 
    MyValue: integer; 

... 

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