case of

[Ekzamenator]

procedure TForm2.ListBox1Click(Sender: TObject);
begin
case  listbox1.ItemIndex of
0: OleContainer1.Visible:=true;
   OleContainer2.Visible:=false;
   OleContainer3.Visible:=false;
1: OleContainer1.Visible:=false;
   OleContainer2.Visible:=false;
   OleContainer3.Visible:=false;
end;
end;

выдает ошибку,не могу понять в чем проблема

[c0zak]

а нафига ещё 2 пункта если они всегда false?

procedure TForm2.ListBox1Click(Sender: TObject);
begin
case  listbox1.ItemIndex of
0: OleContainer1.Visible:=true; break;
1: OleContainer1.Visible:=false; break;
end;
end;

[Serge_Bliznykov]

procedure TForm2.ListBox1Click(Sender: TObject);
begin
case  listbox1.ItemIndex of
0: begin 
      OleContainer1.Visible:=true;
      OleContainer2.Visible:=false;
      OleContainer3.Visible:=false;
   end;
1: begin
      OleContainer1.Visible:=false;
      OleContainer2.Visible:=false;
      OleContainer3.Visible:=false;
   end;
end;
end;

p.s. to c0zak, кстати - break нужен только в C-подобных языках (там, где switch), в Паскаль/Delphi в конструкции case это абсолютно бессмысленно.