case的使用問題

Question

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

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

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