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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 07.12.2010, 18:06   #1
FarSeer
 
Регистрация: 07.12.2010
Сообщений: 7
По умолчанию Проблема с RadioGroup

Ситуация такая-есть 1 RadioGroup там назначены 4 ItemIndex, к каждому ItemIndex на форме размещены 1 Label и 1 dblookupcombo, они наложены друг на друга, и изначально находятся в Visible:=true, и вот надо програмно сделать так, когда мы переключаем ItemIndex, нужный Label и dblookupcombo видны на форме, а остальные всё также в Visible:=true. Подскажите как сделать это. делаю к примеру вот так вот:
if RadioGroup1.ItemIndex=1 then
Label8.Visible:=true;
dblookupcombo2.Visible:=true;
label1.Visible:=false;
label9.Visible:=false;
label10.Visible:=false;
dblookupcombo1.Visible:=false;
dblookupcombo3.Visible:=false;
dblookupcombo4.Visible:=false;
программа запускается, но работает не правильно.
если делаю вот так вот:
if RadioGroup1.ItemIndex=0 then
Label1.Visible:=true;
dblookupcombo1.Visible:=true
else
Label1.Visible:=false;
dblookupcombo1.Visible:=false;
то программа не запускается выдавая ошибки :
[Error] Unit3.pas(68): 'END' expected but 'ELSE' found
[Error] Unit3.pas(72): Declaration expected but 'IF' found
[Error] Unit3.pas(99): '.' expected but ';' found
[Fatal Error] Project1.dpr(7): Could not compile used unit 'Unit3.pas'
что делать?надеюсь на вашу помощь.
FarSeer вне форума Ответить с цитированием
Старый 07.12.2010, 18:12   #2
vovk
!=
Участник клуба
 
Аватар для vovk
 
Регистрация: 08.09.2008
Сообщений: 1,751
По умолчанию

после then
выполняется только превая строчка, чтобы выполнялся блок надо так
Код:
if a=b then
  begin
       инструкция1;
       инструкция2;
       ....
       инструкцияN;
  end
Else
  begin
      инструкция1;
      инструкция2;
      ....
      инструкцияN;
  end;
vovk вне форума Ответить с цитированием
Старый 07.12.2010, 18:18   #3
FarSeer
 
Регистрация: 07.12.2010
Сообщений: 7
По умолчанию

Спасибо огромное, всё работает.
FarSeer вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
RadioGroup Vrat19 Помощь студентам 3 14.11.2009 18:35
RadioGroup Isterika Помощь студентам 4 25.06.2009 17:25
Подскажите с RadioGroup KARUSHEV Помощь студентам 13 20.03.2009 19:50
Вопрос о RadioGroup Tomoyo Общие вопросы Delphi 4 17.03.2009 19:33
StringGrid и RadioGroup ARXangel Общие вопросы Delphi 4 11.02.2009 10:06