case的使用問題

[takdick]

以下代碼在編譯時為何提示'ordinal type required'?
請問如何改?
case combobox1.text of
'str1':do something.....
'str2':do something......
end;

[chechy]

case combobox1.ItemIndex of
0: do something...
1: do something...
end;
除非你用C#或者其他语言，反正Delphi不支持这个操作。

[takdick]

原來如此
那麼case只支持integer類型嗎?

[chechy]

Ordinal类型，所以枚举、字符也可以。

[goodloop]

是只支持有序类型

[zxkid]

只能用
if ...then begin
...
end else if ... then begin
...
end else
...
end;
来实现。