Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2006.01.22;
Скачать: [xml.tar.bz2];

Вниз

ComboBox[i]-?   Найти похожие ветки 

 
vitalik2222 ©   (2005-12-29 14:06) [0]

Столкнулся с проблемой.
У меня есть 10 комбобоксов. т.е.:
ComboBox1
ComboBox2
.
.
.
ComboBox10
Нужно проверить их на наличие отсутствия текста+
Я делаю так:
if  (ComboBox1.Text=""
or  (ComboBox2.Text=""
or  (ComboBox3.Text=""
or  (ComboBox4.Text=""
or  (ComboBox5.Text=""
or  (ComboBox6.Text=""
or  (ComboBox7.Text=""
or  (ComboBox8.Text=""
or  (ComboBox9.Text=""
or  (ComboBox10.Text=""
or  (ComboBox11.Text=""
or  (ComboBox12.Text=""
or  (ComboBox13.Text=""
or  (ComboBox14.Text=""

Как автоматизировать процесс проверки?
For i:=0 to n do
If ComboBox[i].text не прокатывает.


 
umbra ©   (2005-12-29 14:24) [1]

При создании комбобоксов можно помещать их адреса в массив или в TComponentList. И тогда можно ссылаться на них по индексу


 
vitalik2222 ©   (2005-12-29 14:29) [2]

Спасибо!!!


 
Kot_   (2005-12-31 11:13) [3]

А можно подробнее?


 
Anatoly Podgoretsky ©   (2005-12-31 11:43) [4]

FindComponent("ComboBox" + IntStr(I))



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2006.01.22;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.045 c
2-1136711337
psa247
2006-01-08 12:08
2006.01.22
FileMapping


10-1112243476
AloneAli
2005-03-31 08:31
2006.01.22
OLE+Excel


2-1135668296
SergeyG
2005-12-27 10:24
2006.01.22
Отсутствует цвет при печати на принтере


2-1136560210
sx
2006-01-06 18:10
2006.01.22
Excel


14-1135745246
Хинт
2005-12-28 07:47
2006.01.22
Кто-нибудь знаком с программой ЛАД?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский