Should'nt this compile?

[JimKueneman]

Code: Select all

program Buggs;

{ Declarations section }
const
  PACKET_STATE_14_STEP_SPEED = 0;
  PACKET_STATE_28_STEP_SPEED = 1;
  PACKET_STATE_128_STEP_SPEED = 2;

var
  i: Byte;
begin
  i := 0;
  case i of
    PACKET_STATE_14_STEP_SPEED:  <<< ERROR >>>>
      begin
      end;
    PACKET_STATE_28_STEP_SPEED:
      begin
      end;
    PACKET_STATE_128_STEP_SPEED:
      begin
      end;
  end;
      
end.

18 301 "PACKET_STATE_28_STEP_SPEED:"is not valid identifier Buggs.mpas

I would expect this to compile. Am I wrong?

Jim

[OT]

Even in the previous version, I always found that a begin end; - pair with no statements between caused execution trouble although it complied without error. Try inserting a nop; in between and see what happens. (Of course in Turbo pascal or Delphi your code would compile and execute unmodified).

[JimKueneman]

Does not matter.

Mmmm... sometimes reading help files is useful...

case byte_variable of

byte_var1: opmode := 0; // this will be compiled correctly

byte_var2:
opmode := 1; // avoid this case, compiler will parse
// a variable followed by colon sign as label

byte_var3: // adding a comment solves the parsing problem
opmode := 2;
end;

I don't think in Delphi you can use a variable as a value though!

This compiles...

Code: Select all

program Buggs;

{ Declarations section }
const
  PACKET_STATE_14_STEP_SPEED = 0;
  PACKET_STATE_28_STEP_SPEED = 1;
  PACKET_STATE_128_STEP_SPEED = 2;

var
  i: Byte;
begin
  i := 0;
  case i of
    PACKET_STATE_14_STEP_SPEED:   //
      begin
      end;
    PACKET_STATE_28_STEP_SPEED:  //
      begin
      end;
    PACKET_STATE_128_STEP_SPEED:  //
      begin
      end;
  end;
     
end.

Jim

[OT]

The following works for me even without space before and after the colon,in a larger program. I have a vague memory ver.2 needed that space, but then there is content between begin -end here.

Code: Select all

ModeBaudRSel          : begin
                          Txt1:=ModeBaudRSelTxt;
                          ActSel:=BottActionSetSel;
                          UnitSel:=UnitBitsPerSec;
                        end; //Comment

[JimKueneman]

The following works for me even without space before and after the colon,in a larger program. I have a vague memory ver.2 needed that space, but then there is content between begin -end here.

Yes, as long as there is something after the colon it works. You can see in the editor the color of the identifier is a Label when it won't compile. If you type something besides a space past the colon it color changes to the normal code color and it compiles.

Not a big deal just something to remember that is different from Delphi.

Jim