613枚举类型的使用(3) function balltostr( onera|ba) string;∥枚举类型变量转换为字符串 begin case oneball of Red result: =Red Yellow: result: = Yellow' 小最三界小哥最色 Blue: result =Blue White: result =White Black result: =Black end end 图6-1列举不同颜色小球的可 能取法 ③单击“列举”按钮,运行结果如图6-1所示 Inprise Dephi6.1.3 枚举类型的使用(3) function balltostr(oneball:ball):string; //枚举类型变量转换为字符串 begin case oneball of Red: result:='Red'; Yellow: result:='Yellow'; Blue: result:='Blue'; White: result:='White'; Black: result:='Black'; end; end; 单击“列举”按钮,运行结果如图6-1所示。 图6-1 列举不同颜色小球的可 能取法