1个枚举的例子

 1 unit Unit1;
 2 
 3 interface
 4 
 5 uses
 6   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
 7   StdCtrls;
 8 
 9 type
10   TForm1 = class(TForm)
11     hongse: TRadioButton;
12     lanse: TRadioButton;
13     lise: TRadioButton;
14     hense: TRadioButton;
15     Button1: TButton;
16     procedure hongseClick(Sender: TObject);
17     procedure lanseClick(Sender: TObject);
18     procedure liseClick(Sender: TObject);
19     procedure henseClick(Sender: TObject);
20     procedure Button1Click(Sender: TObject);
21   private
22     { Private declarations }
23   public
24     { Public declarations }
25   end;
26 type
27 Tmycolor=(red,blue,green,black);
28 var
29   Form1: TForm1;
30   mycolor:Tmycolor;
31 implementation
32 
33 {$R *.DFM}
34 
35 procedure TForm1.hongseClick(Sender: TObject);
36 begin
37 mycolor:=red;
38 end;
39 
40 procedure TForm1.lanseClick(Sender: TObject);
41 begin
42 mycolor:=blue;
43 end;
44 
45 procedure TForm1.liseClick(Sender: TObject);
46 begin
47 mycolor:=green;
48 end;
49 
50 procedure TForm1.henseClick(Sender: TObject);
51 begin
52 mycolor:=black;
53 end;
54 
55 procedure TForm1.Button1Click(Sender: TObject);
56 var
57 str1:string;
58 begin
59  case mycolor of
60  red:str1:='红色';
61  blue:str1:='蓝色';
62  green:str1:='绿色';
63  black:str1:='黑色';
64 end;
65 showmessage('你选择的颜色是'+str1);
66 end;
67 end.
68