Enum to integer

Smart pascal source code


  type
    TEnumOne = (eOne = 1, eTwo, eThree);

  type
    TEnumAlpha = (eAlpha = Ord('A'), eBeta, eGamma);

  type
    TConvert = class
      class function Get(i: Integer): String;
      begin
        Result := Chr(i);
      end;
      property Prop[i: Integer]: String read Get;
    end;

  WriteLn(Ord(eOne));
  WriteLn(eTwo);
  WriteLn(IntToStr(eThree));

  WriteLn(Chr(Ord(eAlpha)));
  WriteLn(Chr(eBeta));
  WriteLn(TConvert.Prop[eGamma]);

  WriteLn(eOne.Value);
  WriteLn(TEnumOne.eTwo.Value.ToString);
  var
    three: TEnumOne := eThree;
  WriteLn(three.Value);

  { <<< CONSOLE OUTPUTS >>>
    1
    2
    3
    A
    B
    C
    1
    2
    3
  }

  var three = 1;
  /// TEnumOne enumeration
  ///  [line: 38, column: 6, file: uMain]
  var TEnumOne = { 1:"eOne", 2:"eTwo", 3:"eThree" };
  /// TConvert = class (TObject)
  ///  [line: 42, column: 4, file: uMain]
  var TConvert = {
	 $ClassName:"TConvert",$Parent:TObject
	 ,$Init:function ($) {
		TObject.$Init($);
	 }
	 /// function TConvert.Get(i: Integer) : String
	 ///  [line: 43, column: 22, file: uMain]
	 ,Get:function(Self, i) {
		return Chr(i);
	 }
	 ,Destroy:TObject.Destroy
  };
  WriteLn(1);
  WriteLn(2);
  WriteLn("3");
  WriteLn("A");
  WriteLn("B");
  WriteLn(TConvert.Get(TConvert,67));
  WriteLn(1);
  WriteLn("2");
  three = 3;
  WriteLn(three);