小问题，但你未必能答出！

Question

Ther=(sim,xim,zim)s:Ther;如果不用if s=sim then showmessage('sim');这种形式
你能实现这个功能吗？

Answer 1

可以
uses TypInfo;
ShowMessage(GetEnumName(TypeInfo(Ther), Integer(s));

Answer 2

少了个括号
ShowMessage(GetEnumName(TypeInfo(Ther), Integer(s)));

Answer 3

case s of
  sim: showmessage('sim');
  xim: showmessage('xim');
  zim: showmessage('zim');
end;

Answer 4

哈哈
完全同意楼上的
不用if可以用case嘛
至于TypeInfo是比较彻底解决方法