来看看case..of的错误：

Question

procedure..................
var
  value:string
begin
  value:=cmb_lookup.text;
  case value of
   '大班'：showmessage('a');
   '中班': showmessage('b');　  
end;
end; 为什么上面定义成字符串型是不行的：error:ordinal type repuired而定义成整形就可以了：
procedure..................
var
  value:integer;
begin
  case value of
   0：showmessage('a');
   1: showmessage('b');　  
end;
end; 怎么解决？？？？谢谢，在线等。

Answer 1

不是case的错，case只支持有序类型，string不是有序类型

Answer 2

where selectorExpression is any expression of an ordinal type (string types are invalid)string类型无效

Answer 3

delphi 帮助中明确说case 不能用string

Answer 4

procedure..................
begin
  case cmb_lookup.ItemIndex of
    0：showmessage('a');
    1: showmessage('b');　  
  end;
end; 

Answer 5

粗心啊  case对应的end呢？