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

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

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 21.07.2009, 10:10   #1
iiunbreakableii
Пользователь
 
Регистрация: 03.06.2009
Сообщений: 89
По умолчанию цикл с однотипными компонентами

Здравствуйте господа программеры, не подскажите как вогнать этот код в цикл?
Код:
  
  b.Cells[1,b.RowCount-1]:=ComboBox1.Text;
  b.Cells[2,b.RowCount-1]:=ComboBox2.Text;
  b.Cells[3,b.RowCount-1]:=ComboBox3.Text;
  b.Cells[4,b.RowCount-1]:=ComboBox4.Text;
  b.Cells[5,b.RowCount-1]:=ComboBox5.Text;
  b.Cells[6,b.RowCount-1]:=ComboBox6.Text;
  b.Cells[7,b.RowCount-1]:=ComboBox7.Text;
  b.Cells[8,b.RowCount-1]:=ComboBox8.Text;
Спасибо!
iiunbreakableii вне форума Ответить с цитированием
Старый 21.07.2009, 10:25   #2
Utkin
Старожил
 
Аватар для Utkin
 
Регистрация: 04.02.2009
Сообщений: 18,136
По умолчанию

Вам нужно создать массив компонентов ComboBox (и каждый инициализировать) - далее в цикле от 1 до 8.
Маньяк-самоучка
Utkin появился в результате деления на нуль.
Осторожно! Альтернативная логика
Utkin вне форума Ответить с цитированием
Старый 21.07.2009, 10:28   #3
Levsha100
Заблокирован
Старожил
 
Регистрация: 20.07.2008
Сообщений: 4,033
По умолчанию

Вот это вам поможет http://programmersforum.ru/showthrea...find+component
Levsha100 вне форума Ответить с цитированием
Старый 21.07.2009, 10:41   #4
iiunbreakableii
Пользователь
 
Регистрация: 03.06.2009
Сообщений: 89
По умолчанию

Спасибо Вам, Levsha100!
Это то, что нужно.
В итоге код сократился до двух строчек:
Код:
  for i := 1 to n do
  b.Cells[i,b.RowCount1]:=TComboBox(FindComponent('combobox'+inttostr(i))).Text;
iiunbreakableii вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Работа с компонентами Ky3Heu, Общие вопросы Delphi 2 24.04.2009 11:58
Работа с однотипными элементами Bonifacyi Общие вопросы Delphi 3 26.01.2009 00:22
Цикл с предусловием. ( цикл while) Цикл с постусловием. (цикл repeat ... until) Mr.User Помощь студентам 9 23.11.2007 01:34
Помощь с компонентами Less Помощь студентам 1 17.05.2007 09:06