613枚举类型的使用(2) 分析:该程序要用到枚举类型,在编程中可以声明一个包括五种颜色的 枚举类型。从若干小球中取三个小球,三个小球的颜色可能分别是五种颜色 中的一种,而且取得三个小球的颜色不同,各种可能取法可以利用循环语句 实现,直到取得三种颜色不同的小球。对于各种取法要用字符串的形式显示 出来,所以可以编写一个枚举类型转换为字符串类型的子程序。 启动 Delph7.0,新建一个工程,在窗体中添加一个标签、一个列表 框和一个按钮,设置标签的标题属性( Caption)为“红、黄、蓝、黑、白五 个五种颜色的小球,取三个小球可能取法:”,设置按钮的标题属性 ( Caption)为“列举”。 ③在实现部分关键字 Implementation之后声明枚举类型,然后声明 个枚举类型转换为字符串的函数,代码如下 implementation ISR* dfm] type bal=(Red, Yellow,Blue, White,Back);∥声明枚举类型 Inprise Dephi6.1.3 枚举类型的使用(2) 分析：该程序要用到枚举类型，在编程中可以声明一个包括五种颜色的 枚举类型。从若干小球中取三个小球，三个小球的颜色可能分别是五种颜色 中的一种，而且取得三个小球的颜色不同，各种可能取法可以利用循环语句 实现，直到取得三种颜色不同的小球。对于各种取法要用字符串的形式显示 出来，所以可以编写一个枚举类型转换为字符串类型的子程序。 启动Delphi 7.0，新建一个工程，在窗体中添加一个标签、一个列表 框和一个按钮，设置标签的标题属性(Caption)为“红、黄、蓝、黑、白五 个五种颜色的小球，取三个小球可能取法：”，设置按钮的标题属性 (Caption)为“列举”。  在实现部分关键字Implementation之后声明枚举类型，然后声明一 个 枚举类型转换为字符串的函数，代码如下： implementation {$R *.dfm} type ball=(Red,Yellow,Blue,White,Black); //声明枚举类型