新建--其他--控制台应用程序(Console Application)

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.typInfo,System.SysUtils;

type
  //定义一个集合
  MyArray = array[0..5] of string;
  //定义一个枚举

  SomeName = (东西, 稳定, 我的, 最爱, 隐藏,休息);

var //声明集合和一个变量I
  MyArrayName: Myarray;
  MySomeName: SomeName;
  I: Integer;
  X: Integer;

begin
  X := 0;
  //MyArrayName[0] := '大爷';
  //writeln(MyArrayName[0]);
  for I := Low(MyArray) to High(MyArray) do
  begin

    MyArrayName[i] := GetEnumName(TypeInfo(SomeName),I);
    writeln(MyArrayName[I]);
  end;


  Readln;

end.