xe6输出枚举类型每项字符串

unit Unit1;

interface

uses
  Winapi.Windows,
  Winapi.Messages,
  System.SysUtils,
  System.Variants,
  System.Classes,
  Vcl.Graphics,
  Vcl.Controls,
  Vcl.Forms,
  Vcl.Dialogs,
  Vcl.StdCtrls,
  codesitelogging,
  TypInfo;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

type
  TWindowsVersion = (wvUnknown, wvWin95, wvWin95OSR2, wvWin98, wvWin98SE, wvWinME, wvWinNT31, wvWinNT35, wvWinNT351,
    wvWinNT4, wvWin2000, wvWinXP, wvWin2003, wvWinXP64, wvWin2003R2, wvWinVista, wvWinServer2008, wvWin7,
    wvWinServer2008R2, wvWin8, wvWin8RT, wvWinServer2012, wvWin81, wvWin81RT, wvWinServer2012R2);

procedure TForm1.Button1Click(Sender: TObject);
var
  m_WindowsVersion: TWindowsVersion;
  m_Str:            string;
  I:                Integer;
begin
  for I := 0 to 24 do
  begin
    m_Str := GetEnumName(TypeInfo(TWindowsVersion), I);
    CodeSite.Send(Format('TWindowsVersion成员[%d]名字为  %s：',[ I,m_Str]));
  end;
end;

end.