unit1.pas

本光盘是《Delphi 7应用教程》一书的配套光盘

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
Type
  Color=(Black,Red,Orange,Yellow,Green,Blue,Purple,Grey,White);//定义枚举类型
var
  yc:Color; //定义枚举类型变量
{$R *.dfm}
Function FCol(fc:Color):String; //自定义函数，注意其位置
begin
  Case fc of                //Case多分支选择语句
    Black :FCol:='黑色';
    Red   :FCol:='红色';
    Orange:FCol:='橙色';
    Yellow:FCol:='黄色';
    Green :FCol:='绿色';
    Blue  :FCol:='蓝色';
    Purple:FCol:='紫色';
    Grey  :FCol:='灰色';
    White :FCol:='白色';
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);//显示各种颜色
begin
  Canvas.TextOut(15,25,'0--黑色  1--红色  2--橙色  3--黄色  4--绿色');
  Canvas.TextOut(15,50,'5--蓝色  6--紫色  7--灰色  8--白色');
end;

procedure TForm1.Button2Click(Sender: TObject);
var  
  m:Integer;
begin
  m:=StrToInt(Edit1.Text);
  Case m of
    0:yc:=Black;
    1:yc:=Red;
    2:yc:=Orange;
    3:yc:=Yellow;
    4:yc:=Green;
    5:yc:=Blue;
    6:yc:=Purple;
    7:yc:=Grey;
    8:yc:=White;
  end;
  Canvas.TextOut(30,120,'你喜欢的颜色是：'+FCol(yc));//指定位置显示
end;

end.