cONST TO CASE

[alcidesramos]

i WISH USE CONTS IN CASE.

EXAMPLE.

CONTS
OPERAR=0;
APAGAR=1;
VAR
ARZ:BYTE;


THEN I LIKE DO:

CASE ARZ OF
OPERAR:
BEGIN
CODE OF OPERAR
END;

APAGAR:
BEGIN
CODE OF APGAR
END;

END;

[Dany]

Hi, this is already possible. The only thing you should know is that, after the "selector" (your constant value) in the case statement, there should be some text (only a comment is already Ok).
Example:

Code: Select all

CASE ARZ OF
  OPERAR:  // <--- comment added 
     BEGIN
         CODE OF OPERAR
     END;

  APAGAR: // <--- comment added
     BEGIN
        CODE OF APGAR
     END;

See also the help file about the case statement.

[alcidesramos]

OK is good.