DELPHI中的CASE用不了，请教(20分)

S

sjloop

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-31

• #1

请教CASE的用法：我想把一个文本框的内容作为判断条件，然后输出相应的值，如下：
case edit1.text of
'aa':showmessage('ok');
'bb':showmessage('no');
end;
但是它提示出错，那么这个CASE语句应该怎么写啊？？（虽然用IF可以代替）

 

G

ghostxiaolinj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-31

• #2

Delphi的Case不能用字符串

 

Y

Yves

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-31

• #3

不能这么写
只能用if了
因为，case 后面的常量 只能是 序数类型（integer，byte 这类的），字符串不行，
请参看 《object pascal 参考》

 

G

ghostxiaolinj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-31

• #4

可以用枚舉,你看有沒必要專門定義一個枚舉類型

 

江

江南大米

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-31

• #5

uses StrUtils;

case AnsiIndexStr(Edit1.Text, ['aa', 'bb']) of
0: Showmessage('ok');
1: Showmessage('no');
end;

 

江

江南大米

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-31

• #6

也可以把所有的要判断的字符串搞到一个TStringlist
case Stringlist.indexof(str) of
0:%%%%%%
1:#####
end;

 

F

fei_l

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-31

• #7

例子一：说明 case X of 中的 X 可以是Integer
case I of
1..5: Caption := 'Low';
6..9: Caption := 'High';
0, 10..99: Caption := 'Out of range';
else
Caption := '';
end;

例子二：说明 case X of 中的 X 可以是枚举类型
case MyColor of
Red: X := 1;
Green: X := 2;
Blue: X := 3;
Yellow, Orange, Black: X := 0;
end;

 

G

ghabc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-31

• #8

delphi 中的CASE 必须为序数型
使用诸如字符串这样的非序数类型作选项是非法的