for in Enum

Smart pascal source code


type
  TMyEnum = (meA, meB, meC);

  {----- main.pas ----}
var
  i: TMyEnum;

Begin
  for i in TMyEnum do
    WriteLn(i);

  WriteLn('');

  for i := Low(TMyEnum) to High(TMyEnum) do
    WriteLn(i);
  WriteLn('');

  for i := meA to meC do
    WriteLn(i);
  WriteLn('');

  { <<< CONSOLE OUTPUTS >>>
    012
    012
    012
  }

      var i = 0;
      for(i=0;i<=2;i++) {
         WriteLn(i);
      }
      WriteLn("");
      for(i=0;i<=2;i++) {
         WriteLn(i);
      }
      WriteLn("");
      for(i=0;i<=2;i++) {
         WriteLn(i);
      }
      WriteLn("");
	  
/// TMyEnum enumeration
///  [line: 35, column: 6, file: uMain]
var TMyEnum = [ "meA", "meB", "meC" ];