Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 12.11.2011, 16:56   #1
Ekzamenator
Пользователь
 
Регистрация: 15.04.2011
Сообщений: 61
По умолчанию case of

Код:
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;
выдает ошибку,не могу понять в чем проблема
Ekzamenator вне форума Ответить с цитированием
Старый 12.11.2011, 17:16   #2
c0zak
Пользователь
 
Регистрация: 06.11.2009
Сообщений: 36
По умолчанию

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

Код:
procedure TForm2.ListBox1Click(Sender: TObject);
begin
case  listbox1.ItemIndex of
0: OleContainer1.Visible:=true; break;
1: OleContainer1.Visible:=false; break;
end;
end;
Твои сны-как лотерея, это то что мы умеем... ©СЛОТ

Последний раз редактировалось c0zak; 12.11.2011 в 17:18.
c0zak вне форума Ответить с цитированием
Старый 12.11.2011, 17:55   #3
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Код:
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 это абсолютно бессмысленно.
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
case boomeer Общие вопросы C/C++ 1 20.08.2010 12:13
CASE drikusik# Помощь студентам 4 16.12.2009 15:22
for and case искандрик Помощь студентам 5 16.12.2009 14:50