Delphi用于整数范围的case语句 [英] Delphi case statement for integer ranges

问题描述

我有一个函数被传递一个整数值，代表一个步长值。
有五个独立条件我想测试：
值= 0
值= 1
值= -1
值> 1
值< ; -1

目前，这是作为一组if语句实现的，我想更改一个case语句。我对具体的价值例子没有问题，甚至是有限的范围（比如说1..10），但是我如何写一个表示Value> 1或Value <-1？

解决方案

  var 
 MyValue：integer; 
 
 ... 
 
 case MyValue of 
低（整数）..- 2：
 beep; 
 -1：
 beep; 
 0：
 beep; 
 +1：
 beep; 
 2..High（整数）：
 beep; 
结束
  

I have a function which is being passed an integer value, representing a step value. There are 5 seperate conditions I want to test for: Value =0 Value =1 Value =-1 Value >1 Value <-1

Currently this is implemented as a set of if statements, and I would like to change this for a case statement. I have no problems with the specific value cases, or even a limited range (say 1..10) but how do i write a case representing Value >1 , or Value <-1?

解决方案

var
  MyValue: integer;

...

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

这篇关于Delphi用于整数范围的case语句的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！