Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 16.02.2009, 18:13
denismi denismi вне форума
Прохожий
 
Регистрация: 16.02.2009
Сообщения: 7
Репутация: 10
По умолчанию case of

подскажите как правильно написать такое

Код:
if RadioButton1.checked
  then
     begin
      form1.visible := false;
      form3.show;
     end
  else
      begin
        if radioButton2.Checked
       then
        form1.visible := false;
        form5.show;
     end
.....

lmikle: Не, я точно кому-нибудь что-нибудь оторву за НЕиспользование тегов!!!

с помощью case of
Ответить с цитированием
  #2  
Старый 16.02.2009, 18:21
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,015
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Использовать RadioGroup и делать Case по ее индексу.
Ответить с цитированием
  #3  
Старый 16.02.2009, 18:54
denismi denismi вне форума
Прохожий
 
Регистрация: 16.02.2009
Сообщения: 7
Репутация: 10
По умолчанию

Цитата:
Сообщение от lmikle
Использовать RadioGroup и делать Case по ее индексу.
если не сложно , можно на примере!?
Ответить с цитированием
  #4  
Старый 16.02.2009, 19:06
Аватар для Yurk@
Yurk@ Yurk@ вне форума
Специалист
 
Регистрация: 07.09.2007
Адрес: Украина, г. Днепропетровск
Сообщения: 892
Версия Delphi: 7 + ОгнеПтица
Репутация: выкл
По умолчанию case ...

Код:
if RadioButton1.Checked then
case RadioButton1.ItemIndex of
0 : begin {текст} end;
1 : begin {текст} end;
...
n : begin {текст} end;
else {текст} end;
__________________
Поживу - увижу, Доживу - узнаю, Выживу - учту.
[P.S.]->Выражая благодарность за помощь - Вы получаете шанс на помощь в следующий раз
Ответить с цитированием
  #5  
Старый 17.02.2009, 11:15
denismi denismi вне форума
Прохожий
 
Регистрация: 16.02.2009
Сообщения: 7
Репутация: 10
По умолчанию

почему не работает такой код
[
Код:
if radiobutton1.checked 
  then
      form1.visible := false;
      form3.show;
  else
if radiobutton2.checked
  then
      form1.visible := false;
      form4.show;
  else
if radiobutton3.checked
  then
      form1.visible := false;
      form5.show;
  else
Ответить с цитированием
  #6  
Старый 17.02.2009, 11:55
Аватар для Karsh
Karsh Karsh вне форума
Активный
 
Регистрация: 22.09.2007
Адрес: SPb
Сообщения: 228
Версия Delphi: 7, 2009, XE2
Репутация: 70
По умолчанию

если у тебя 2 или более условия выполняются после THEN, то эти условия необходимо заключить в скобки BEGIN/END:
Код:
if radiobutton1.checked 
  then
      begin
      form1.visible := false;
      form3.show;
      end
  else
Ответить с цитированием
Ответ


Delphi Sources

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

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 13:16.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter