5,388
社区成员
发帖
与我相关
我的任务
分享求大侠帮忙，case问题，代码贴出来了，请看看！
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;
这是帮助里的，怎么回事？？
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;
...全文
请发表友善的回复…
发表回复
qing_zb 2001-07-21
- 打赏
- 举报
请看看，这是（片段）
错：missing operation orsemicolon??
case idss of
1:
begin
if i=7 then
response.write('i<br>')
else
response.write('i');
//end;
end
错：missing operation orsemicolon??
case idss of
1:
begin
if i=7 then
response.write('i<br>')
else
response.write('i');
//end;
end
cultra 2001-07-21
- 打赏
- 举报
同意delphi_user(皮皮虾),他速度好快啊,呵呵。..
cultra 2001-07-21
- 打赏
- 举报
好象 case Mycolor of 中的Mycolor必须是 integer类型才可以。
delphi_user 2001-07-21
- 打赏
- 举报
case 语句只能是整数，枚举类型，子界；你用的是字符串类型，当然不行了。
你可以改为枚举类型。
如:
type
myColorType=(Red,Green,Blue,Yellow,Orange,Black)
var
myColor:myColorType
以上程序未经过测试，不过大概正确。
你可以改为枚举类型。
如:
type
myColorType=(Red,Green,Blue,Yellow,Orange,Black)
var
myColor:myColorType
以上程序未经过测试，不过大概正确。
