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

 1 unit Unit1;
 2 
 3 interface
 4 
 5 uses
 6   Winapi.Windows,
 7   Winapi.Messages,
 8   System.SysUtils,
 9   System.Variants,
10   System.Classes,
11   Vcl.Graphics,
12   Vcl.Controls,
13   Vcl.Forms,
14   Vcl.Dialogs,
15   Vcl.StdCtrls,
16   codesitelogging,
17   TypInfo;
18 
19 type
20   TForm1 = class(TForm)
21     Button1: TButton;
22     procedure Button1Click(Sender: TObject);
23   private
24     { Private declarations }
25   public
26     { Public declarations }
27   end;
28 
29 var
30   Form1: TForm1;
31 
32 implementation
33 
34 {$R *.dfm}
35 
36 type
37   TWindowsVersion = (wvUnknown, wvWin95, wvWin95OSR2, wvWin98, wvWin98SE, wvWinME, wvWinNT31, wvWinNT35, wvWinNT351,
38     wvWinNT4, wvWin2000, wvWinXP, wvWin2003, wvWinXP64, wvWin2003R2, wvWinVista, wvWinServer2008, wvWin7,
39     wvWinServer2008R2, wvWin8, wvWin8RT, wvWinServer2012, wvWin81, wvWin81RT, wvWinServer2012R2);
40 
41 procedure TForm1.Button1Click(Sender: TObject);
42 var
43   m_WindowsVersion: TWindowsVersion;
44   m_Str:            string;
45   I:                Integer;
46 begin
47   for I := 0 to 24 do
48   begin
49     m_Str := GetEnumName(TypeInfo(TWindowsVersion), I);
50     CodeSite.Send(Format(‘TWindowsVersion成员[%d]名字为  %s：‘,[ I,m_Str]));
51   end;
52 end;
53 
54 end.