case 的问题

Question

case A of
 '0': a='aafdsfa';
 '1': a='vsf';
else 
  a='asdf';
请问这个语句错误在哪里 ，编译的时候总是出错 A为widestring 类型的。

Answer 1

Case语句只能使用有序类型,比如整数什么的.不能用字符串

Answer 2

试试
var
  sTemp: String;
begin
  sTemp := Edit2.Text;
  if Length(sTemp) > 0 then
  begin
    case Ord(sTemp[1]) of
      Ord('A'): ShowMessage('A');
      Ord('B'): ShowMessage('BB');
      Ord('C'): ShowMessage('CCC');
    end;
  end;
end;