Case Statements: flow value set into another?

Mike_HWG wrote:

Is there an equivalent NAV expression to match the C++ code below? I'm trying to say "If my case statement matches value set 1, start doing something. If my case statement matches value set 2 or 3, do both their stuff. If my case statement only matches value set 3, only do that stuff"

switch( <expression> )
{
    case <value set 1> :
        <statement 1>;
        break;                        //The code will hit the break and leave this structure
     case <value set 2> :
        <statement 2>;
                                        //Notice I didn't say break!  Value set 2 will flow on to value set 3!
     case <value set 3> :
         <statement 3>;
         break;
}

CASE TRUE of
  value in [1] :
    <statement 1>;
  value in [3] :
    <statement 3>;
  value in [2,3] :
    <statement 2>;
    <statement 3>;
END;

David Singleton wrote:

Sure, try:

CASE TRUE of
  value in [1] :
    <statement 1>;
  value in [3] :
    <statement 3>;
  value in [2,3] :
    <statement 2>;
    <statement 3>;
END;

Using the "CASE TRUE of" and "IN []" you can generally achieve what ever you want.

CASE value of
  1 :
    <statement 1>;
  3 :
    <statement 3>;
  2,3 :
    <statement 2>;
    <statement 3>;
END;

IF value in [1] THEN
    <statement 1>;
ELSE IF value in [3] THEN
    <statement 3>;
ELSE IF value in [2,3] THEN
  BEGIN
    <statement 2>;
    <statement 3>;
  END;

IF value IN [<value set 1>] THEN
  <statement 1>;
ELSE BEGIN
  IF value IN [<value set 2>] THEN
    <statement 2>;
  IF value IN [<value set 2>,<value set 3>] THEN
    <statement 3>;
END;

OBJECT Form 50000 CASE ELSEIF
{
  OBJECT-PROPERTIES
  {
    Date=11/14/11;
    Time=[ 1:37:00 PM];
    Version List=;
  }
  PROPERTIES
  {
    Width=2640;
    Height=2420;
  }
  CONTROLS
  {
    { 1240060000;CommandButton;220;770;2200;550 ;CaptionML=ENU=CASE;
                                                 OnPush=BEGIN
                                                          CASE MyInt OF
                                                            1: MESSAGE('the value is one');
                                                            2: MESSAGE('the value is two');
                                                            3: MESSAGE('the value is three');
                                                          ELSE
                                                            MESSAGE('the value is four or more');
                                                          END;
                                                        END;
                                                         }
    { 1240060001;CommandButton;220;1540;2200;550;CaptionML=ENU=IF-ELSEIF;
                                                 OnPush=BEGIN
                                                          IF MyInt = 1 THEN
                                                            MESSAGE('the value is one')
                                                          ELSE IF MyInt = 2 THEN
                                                            MESSAGE('the value is two')
                                                          ELSE IF MyInt = 3 THEN
                                                            MESSAGE('the value is three')
                                                          ELSE
                                                            MESSAGE('the value is four or more');
                                                        END;
                                                         }
    { 1240060002;TextBox;220  ;220  ;1700 ;440  ;SourceExpr=MyInt }
  }
  CODE
  {
    VAR
      MyInt@1240060000 : Integer;

    BEGIN
    END.
  }
}

DenSter wrote:

My contention is that when evaluating multiple values for a single control variable, a CASE statement is more efficient and easier to read.

DenSter wrote:

but that doesn't mean that it doesn't jump right into the right value when they are literal.

//Pass in a value of 2 and see what happens!

CASE i OF
    1:
      MESSAGE('One');
    3,2:
      BEGIN
        MESSAGE('Three or two');
        IF i = 2 THEN
          MESSAGE('Two');
      END;
END;

Number := 1; //or 5 or 10
FOR j := 1 TO 100 DO BEGIN
  StartTime := TIME;
  FOR i := 1 TO 1000000 DO BEGIN
    CASE Number OF
       1: BEGIN END;
       2: BEGIN END;
       3: BEGIN END;
       4: BEGIN END;
       5: BEGIN END;
       6: BEGIN END;
       7: BEGIN END;
       8: BEGIN END;
       9: BEGIN END;
      10: BEGIN END;
    END;
  END;
  EndTime := TIME;
  TotalTime += EndTime - StartTime;
END;

Number := 1;
FOR j := 1 TO 100 DO BEGIN
  StartTime := TIME;
  FOR i := 1 TO 1000000 DO BEGIN
    IF Number = 1 THEN BEGIN
    END ELSE IF Number = 2 THEN BEGIN
    END ELSE IF Number = 3 THEN BEGIN
    END ELSE IF Number = 4 THEN BEGIN
    END ELSE IF Number = 5 THEN BEGIN
    END ELSE IF Number = 6 THEN BEGIN
    END ELSE IF Number = 7 THEN BEGIN
    END ELSE IF Number = 8 THEN BEGIN
    END ELSE IF Number = 9 THEN BEGIN
    END ELSE IF Number = 10 THEN BEGIN
    END;
  END;
  EndTime := TIME;
  TotalTime += EndTime - StartTime;
END;

DenSter wrote:

What does TCO have to do with a question about syntax?