是否有另一种方法可以在不使用 -MAXINT 的情况下执行此 case 语句？

Question

我有一个 case 语句，它为结果代码评估整数（函数的结果），如下所示：

  R:= DoSomething;
  case R of
    0: begin
      //Success
    end;
    1..99: begin
      //Specific result messages
    end;
    100..199: begin
      //Other specific result messages
    end;        
    -MAXINT..-1: begin
      //Failure
    end;
  end;

如果失败，则返回一个表示错误代码的负数。 DoSomething 是任何返回整数作为响应代码（或错误代码，为负数）的函数。如果它是一个错误，它会被传递给另一个错误处理程序。如果它是成功的，它会被传递给一个成功处理程序（继续等）。正值将由各种特定的处理程序处理。

我想知道是否有另一种写法-MAXINT..-1。更多类似于“任何 -1 及以下”​​的内容。我试过<=-1，但编译器不太喜欢。

有没有办法在案例陈述中做到这一点？

Answer 1

对所有未处理的结果使用else 块，并在该块中区分执行失败和您没有显式处理程序的成功执行（最后一种情况是您似乎没有考虑过的情况）您的示例代码）。

  R:= DoSomething;
  case R of
     0: begin
       //Success
     end;
     1: begin
       // Another success
     end
     else begin
        if R >= 0 then 
           // Unhandled successful execution error
        else 
           //Failure
       end;
   end;

Answer 2

您试图强制使用严格的 case，而您应该使用 if 和 case 的组合：

if R = 0 then
  // Success
else 
  if R < 0 then
    // Failure
  else
  begin  // Positive values
    case R of
       1..99: ...
     100..199: ...
     // Other expected values
     else
       // Unexpected positive value
     end;
  end;

我个人会格式化以上内容以使流程更清晰，但这是我自己的偏好：

if R = 0 then
  // Success
else if R < 0 then
  // Failure
else
begin  // Positive values
  case R of
     1..99: ...
   100..199: ...
   // Other expected values
   else
     // Unexpected positive value
   end;
end;

或者，更好（正如拉里在对我的回答的评论中提到的，但奇怪的是他没有）：

if R < 0 then
  // Failure
else
begin
  case R of 
      0:  // Success
      1..99: // Expected positive values
    100..199:
  else
      // Unexpected positives
  end;
end;