Delphi枚举类型通过下标获取类型和通过类型获取下标方法

Delphi 中的枚举类型
        枚举类型又是一种自定义有序类型。在枚举类型中,你列出所有该类型可能取的值，而不是指定现有类型的范围。换句话说，枚举类型是个可取值的序列。见下例：
type
        TColors = (Red, Yellow, Green, Cyan, Blue, Violet);
序列中每个值都对应一个序号，序号从0开始计数。
        1、通过类型获取下标：使用Ord 函数，即可得到一个枚举类型值的序号。例如，Ord ( Yellow) 返回值1；
        2、通过下标获取类型：使用强制转化即可。例如，TColors（1） 返回值Yellow。