1个枚举的例子

delphi

 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 

 

转载于:https://www.cnblogs.com/heimei/archive/2009/12/10/1620768.html