Enum | Succ | Pred

Smart pascal source code


  type
    TEnum = (enOne, enTwo, enThree);

  var
    e: TEnum = enTwo;

  WriteLn('Ord: ' + IntToStr(Ord(e)));
  WriteLn('High: ' + IntToStr(Ord(High(e))));
  WriteLn('Low: ' + IntToStr(Ord(Low(e))));

  Inc(e); // supported
  WriteLn(Ord(e));
  Dec(e); // supported
  WriteLn(Ord(e));

  WriteLn(Succ(e));
  WriteLn(Pred(e));

  for e := enOne to enThree do
    WriteLn(e);
    WriteLn('');

  for e := Low(TEnum) to High(TEnum) do
    WriteLn(e);
    WriteLn('');

  { <<< CONSOLE OUTPUTS >>>
    Ord: 1
    High: 2
    Low: 0
    2
    1
    2
    0
    012
    012
  }

  var e = 0;
  /// TEnum enumeration
  ///  [line: 40, column: 5, file: uMain]
  var TEnum = [ "enOne", "enTwo", "enThree" ];
  e = 1;
  WriteLn(("Ord: "+(e).toString()));
  WriteLn("High: 2");
  WriteLn("Low: 0");
  ++e;
  WriteLn(e);
  --e;
  WriteLn(e);
  WriteLn((e+1));
  WriteLn((e-1));
  for(e=0;e<=2;e++) {
	 WriteLn(e);
  }
  WriteLn("");
  for(e=0;e<=2;e++) {
	 WriteLn(e);
  }
  WriteLn("");