法三:字符串转为枚举型
//定义 type Colors = (Red, Yellow, Green, Cyan, Blue, Violet); Suit = (Club, Diamond, Heart, Spade);
//举例: type Colors = (Red, Yellow, Green, Cyan, Blue, Violet); var C: Colors; begin C := Red; ShowMessage(IntToStr(Ord(C))); //0 C := Blue; ShowMessage(IntToStr(Ord(C))); //4 C := Green; ShowMessage(IntToStr(Integer(C))); //2; 获取元素位置用 Integer 也可以 end;
//举例2: type Tabc = (a=5,b=10,c=a+b); var ta,tb,tc: Tabc; begin ta := a; tb := b; tc := c; ShowMessage(IntToStr(Ord(ta))); //5 ShowMessage(IntToStr(Ord(tb))); //10 ShowMessage(IntToStr(Ord(tc))); //15 end;
//获取枚举元素总数: type TMyEnum = (Monday,Tuesday,Wednesday,Thursday,Friday,Saturday,Sunday); var m: TMyEnum; num: Integer; begin num := 0; for m := Low(TMyEnum) to High(TMyEnum) do Inc(num); ShowMessage(IntToStr(num)); // 7 end;
//返回枚举元素的字符串标识: uses TypInfo; //需要uses的单元 type TMyEnum = (Monday,Tuesday,Wednesday,Thursday,Friday,Saturday,Sunday); procedure TForm1.Button1Click(Sender: TObject); var str: string; begin str := TypInfo.GetEnumName(TypeInfo(TMyEnum),1); ShowMessage(str); //Tuesday end;
//获取对象枚举值的字符串表式: uses TypInfo; //需要uses的单元 procedure TForm1.FormCreate(Sender: TObject); var str: string; begin str := GetEnumProp(Self, 'BorderStyle'); ShowMessage(str); { bsSizeable } end;
法三:字符串转为枚举型
这种方法主要用到 RTTI 的特性。该方法的主要思路是,先把所有的备选项声名
为一个枚举类型的值,那么我们只要把要找的字符串也转换为枚举型,那么就可以
用 case 语句了。那么通过什么办法把一个字符串转化为枚举型呢?往下看:
// uses TypInfo; // 记得引用这个单元
// type TMyStrSel = (Beijing, Tianjing, Shanghai, Chongqing);
// 注意,上面这个定义不能放在某个函数内部哦,那样的话,它就没有运行类信息了
// var strSel: TMyStrSel;
str := 'Chongqing';
strSel := TMyStrSel(GetEnumValue(TypeInfo(TMyStrSel), str));
case strSel of
Beijing: ShowMessage('First');
Tianjing: ShowMessage('Second');
Shanghai: ShowMessage('Third');
Chongqing: ShowMessage('Forth');
else ShowMessage('Other');
end;
稍做解释:GetEnumValue 函数返回一个字符串对应的枚举型的值在某枚举类型
中的位置(要知道枚举类型是有顺序的,要不怎么叫顺序类型呢:-)),然后通过
一个强制类型转换将这个值转化为枚举型。于是就实现了把字符串转化为枚举型的
操作。
可以看到,在 case 语句这一段,我们的使用和理想中的使用方法几乎是一样的!
毕竟枚举类型可以做到见名知意嘛。的确比用前两种方法看起来直观得多。
当然,这并不是万能的方法,如果你的备选项有一个不符合 Delphi 的变量名命
名法则(如'AK-47'或中文等),则不能将其声明为一个枚举型,于是就不能使用这
个方法。如果是这样你就只能使用前两种方法了。极端的情况下,至少你还有第一
种方法可以使用 :-) 但在不少的场合,这种方法还是适用的。