Enum QualifiedName

Smart pascal source code


type
  TEnum = (enOne, enTwo, enThree);

type
  TDisj = (d0 = 0, d2 = 2, d4 = 4, d6 = 6, d8 = 8, d10 = 10, d12 = 12);

{ main.pas }

Begin

  WriteLn(TEnum.enOne.QualifiedName);
  WriteLn(enTwo.QualifiedName);
  WriteLn(TEnum(Ord(enTwo) + 1).QualifiedName);

  for var e in TEnum do
    WriteLn(e.QualifiedName);

  for var i := 0 to 12 step 3 do
  begin
    var
      e: TDisj;
    e := TDisj(i);
    WriteLn(e.QualifiedName);
  end;

  { <<< CONSOLE OUTPUTS >>>
    TEnum.enOne
    TEnum.enTwo
    TEnum.enThree
    TEnum.enOne
    TEnum.enTwo
    TEnum.enThree
    TDisj.d0
    TDisj.?
    TDisj.d6
    TDisj.?
    TDisj.d12
  }

  var e = 0;
  var i = 0;
  var e$1 = 0;
  WriteLn("TEnum.enOne");
  WriteLn("TEnum.enTwo");
  WriteLn("TEnum.enThree");
  for(e=0;e<=2;e++) {
	 WriteLn((("TEnum."+$EnumToName(TEnum,e))));
  }
  for(i=0;i<=12;i+=3) {
	 e$1 = i;
	 WriteLn((("TDisj."+$EnumToName(TDisj,e$1))));
  }
/// TEnum enumeration
///  [line: 34, column: 4, file: uMain]
var TEnum = [ "enOne", "enTwo", "enThree" ];
/// TDisj enumeration
///  [line: 38, column: 4, file: uMain]
var TDisj = { 0:"d0", 2:"d2", 4:"d4", 6:"d6", 8:"d8", 10:"d10", 12:"d12" };