怎样解决case语句的表达式中可以字符串类型???????

Question

可以参考下面根据需要修改
case edit1.text[1] of 
  'A':
  'B':
  'C':begin
     end;
你们是怎样解决的?

Answer 1

"case 只能用整形的吧。"
其实只要是有序类型基本上都可以!但我发现int64 类型好像不行,其它的有序类型还没发现不行的!

Answer 2

你这个问题也不需要什么串检索啊。只要类似下面就行了：
  case Char(Edit1.Text[1]) of
   'a':Caption:='a';
   'b':caption:='b';
  end;
如果真的要检索串的话，用一个数组就搞定了。