Enum Scope

Smart pascal source code


  type
    MyEnum = enum(a, b, c = 255, d);

  type
    MyFlags = flags(a, b, c);

  WriteLn(MyEnum.a);
  WriteLn(MyEnum.b);
  WriteLn(MyEnum.c);

  var
  d := MyEnum.d;
  WriteLn(MyEnum.d);

  WriteLn(MyFlags.a);
  WriteLn(MyFlags.b);
  WriteLn(MyFlags.c);

  { <<< CONSOLE OUTPUTS >>>
    0
    1
    255
    256
    1
    2
    4
  }

  var d = 0;
  /// MyFlags enumeration
  ///  [line: 40, column: 6, file: uMain]
  var MyFlags = { 1:"a", 2:"b", 4:"c" };
  /// MyEnum enumeration
  ///  [line: 38, column: 6, file: uMain]
  var MyEnum = { 0:"a", 1:"b", 255:"c", 256:"d" };
  WriteLn(0);
  WriteLn(1);
  WriteLn(255);
  d = 256;
  WriteLn(256);
  WriteLn(1);
  WriteLn(2);
  WriteLn(4);