法三：字符串转为枚举型

枚举

//定义
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'或中文等），则不能将其声明为一个枚举型，于是就不能使用这
            个方法。如果是这样你就只能使用前两种方法了。极端的情况下，至少你还有第一
            种方法可以使用 :-) 但在不少的场合，这种方法还是适用的。