求大侠帮忙，case问题，代码贴出来了，请看看！

[qing_zb]

ordinal type...错
这是帮助里的，怎么回事？？
case 只能处理序数类型的变量？？怎么讲
我做了一个case，根据星期几执行不同的语句.,,怎么会错
aaa:='Monday';
case aaa of

Sunday
Monday
Tuesday
Wednesday
Thursday
Friday
Saturday
---------------------------------

var
MyColor:='Red';
x:integer;
case MyColor of

Red: X := 1;
Green: X := 2;
Blue: X := 3;
Yellow, Orange, Black: X := 0;

end;

[delphi_user]

case 语句只能是整数，枚举类型，子界；你用的是字符串类型，当然不行了。
你可以改为枚举类型。
如:
type
myColorType=(Red,Green,Blue,Yellow,Orange,Black)
var
myColor:myColorType

以上程序未经过测试，不过大概正确。

[cultra]

好象 case Mycolor of 中的Mycolor必须是 integer类型才可以。

[cultra]

同意delphi_user(皮皮虾),他速度好快啊,呵呵。..

[qing_zb]

请看看，这是（片段）
错：missing operation orsemicolon??

case idss of
1:
begin

if i=7 then
response.write('i<br>')
else
response.write('i');
//end;
end