有关Case语句的嵌套问题(50分)

T

Teny

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-21

• #1

各位，我想在CASE语句中嵌套一个CASE语句，如：
case ComboBox1.ItemIndex of
0:do...
1:begin
case ComboBox2.ItemIndex of
0:do...
1:do...
2:do...
end;
2:do...
在编译的过程未出错或有Warning出现，然而在程序中我却发现ComboBox1.ItemIndex=1时不起任何作用
请问哪位知道为什么

 

U

ugvanxk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-21

• #2

1: combobox2change(sender);
combobox2change(sender);
begin
case ComboBox2.ItemIndex of
0:do...
1:do...
2:do...
end;
end;

 

T

Teny

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-21

• #3

ugvanxk兄，您 所说的方法还是不行

 

S

SuperJS

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-21

• #4

你写在什么事件里啊！

 

L

lop

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-21

• #5

关注

 

T

Teny

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-21

• #6

我的事件是Button1.OnClick

 

Y

yhaochuan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-21

• #7

procedure TForm1.Button1Click(Sender: TObject);
begin
case ComboBox1.ItemIndex of
0:showmessage('0');
1:
case ComboBox2.ItemIndex of
0:showmessage('00');
1:showmessage('01');
2:showmessage('02');
end;
2:showmessage('2');
end;
end;

 

Y

yhaochuan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-21

• #8

上面的combox1.item都为
0
1
2
3
4
5
6

 

W

wcwcw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-21

• #9

procedure TForm1.Button1Click(Sender: TObject);
begin
case ComboBox1.ItemIndex of
0: ShowMessage('ComboBox1 0');
1:begin
case ComboBox2.ItemIndex of
0: ShowMessage('ComboBox2 0');
1: ShowMessage('ComboBox2 1');
2: ShowMessage('ComboBox2 2');
end;
end;
end;
end;
通过没有问题！

 

T

Teny

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-21

• #10

是的，上面几个例子都可以通过，是没问题，但为什么在的程序中就偏偏不行了呢？

 

J

jlyin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-21

• #11

可能你ComboBox2.ItemIndex或ComboBox1.ItemIndex超界，
又没写ELSE语句

 

T

Teny

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-21

• #12

各位，我犯了个天大的错误，原本有3个ComboBox，我错将ComboBox3写成ComboBox2了。
简直太可笑了。问题已经解决，不过既然大伙儿有意解答，我的这50分就平分给大伙儿了。
----------------------------------------
这个问题的讨论到此为止。