请高手诊断我的delphi条件语句问题

来源：百度知道编辑：UC知道时间：2024/05/15 04:32:42

procedure TForm1.ComboBox2Click(Sender: TObject);
begin
if combobox1.Text='初中'then
case combobox2.Itemindex of
0:begin//选中第1册
combobox3.Clear ;
combobox3.Text:='选择篇目';
combobox3.Items.Add('为人民服务');
combobox3.Items.Add('纪念白求恩');
end;
1:begin//选中第2册
combobox3.Clear ;
combobox3.Text:='选择篇目';
combobox3.Items.Add('荔枝蜜');
combobox3.Items.Add('口技');
end;
2:begin
combobox3.Clear ;
combobox3.Text:='选择篇目';
combobox3.Items.Add('望天门山');
combobox3.Items.Add('就义诗');
end;
3:begin

combobox3.Clear ;
combobox3.Text:='选择篇目';
combobox3.Items.Add('夜走铃关峡')
end;
4:begin

combobox3.Clear ;
combobox3.Text:='选择篇目';
combobox3.Items.Add

你好似问过二次, 上次没看, 刚看了一下 ,原因在于你语法有漏洞;

二个 case 语句的ELSE和IF的ELSE混到一起了;

第一个CASE下的 ELSE 是指CASE 0-5之外的选择; 所以IF 高中那个条件永远都不会满足,所以高中下面所有的IF CASE都不会运行吧;
你把CASE的ELSE条件也写出来 ,要不第二个ELSE实际上就成了第一个CASE的语法一部分了;
简单说就是 CASE语句有个ELSE分支,而你没有写; 和IF语句的ELSE混到一起了;

貌似你把COMBOBOX的显示属性选成表单型，就是不能改，蓝色那种的时候，CLEAR是不管用的，要不把属性改了，要不不用CLEAR，二中一。因为我手头上的电脑没装DELPHI，所以只能粗略回答……见谅

请高手诊断我的delphi条件语句问题高手诊断delphi条件语句请高手诊断我的网络问题请高手诊断下我的三星数码相机请高手诊断下我的电脑异常! 我的电脑怎么了请高手诊断~~ 请高手诊断一下我的系统是什么问题？请delphi高手,帮我解答一下请高手帮我诊断下，svchost 请高手诊断有深度的问题