这种方法主要用到 RTTI 的特性。该方法的主要思路是,先把所有的备选项声名为一个枚举类型的值,只要把要找的字符串也转换为枚举型,就可以用 case 语句了。
uses TypInfo; // 引用这个单元
type TMyStrSel = (Beijing, Tianjing, Shanghai, Chongqing);
// 注意,上面这个定义不能放在某个函数内部,那样的话,它就没有运行类信息了
var
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;
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 函数返回一个字符串对应的枚举型的值在某枚举类型中的位置(枚举类型是有顺序的,要不怎么叫顺序类型呢),然后通过一个强制类型转换将这个值转化为枚举型。于是就实现了把字符串转化为枚举型的操作。