Delphi在case 语句中使用字符串

这种方法主要用到 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 函数返回一个字符串对应的枚举型的值在某枚举类型中的位置（枚举类型是有顺序的，要不怎么叫顺序类型呢），然后通过一个强制类型转换将这个值转化为枚举型。于是就实现了把字符串转化为枚举型的操作。