请问如何定义字符型枚举类型

Question

例如我想定义一个字符串型变量只能在'a'，'b'，'c'三个字符串之间取值，可否定义一个类似C++中枚举类型的变量？

Answer 1

type
   EnumChar=(a=97,b=98,c=99);

Answer 2

//用法……
procedure TForm1.FormCreate(Sender: TObject);
type
  EnumChar=(a=97,b=98,c=99);
var
  X     :EnumChar;
  AChar :Char;
begin
  X:=a;
  AChar:=Chr(Ord(X));
end;

Answer 3

可能我没说明白，我说的是字符串，'a'，'b'，'c'只是例子，可能不太恰当
比如我想定义一个TEnumType=（'str1','str2','str3'）
var
  s : TEnumType...
  s := 'str1' 或者 s := 'str1';
我想实现这样的功能，用一般的字符串变量主要是怕写错了，出现异常值，不知如何实现

Answer 4

type
  TEnumType = (str1,str2,str3);//枚举类型不能用字符串