Работа с циклом FOR

@xomakec · Регистрация: 06.03.2011

Author24 — интернет-сервис помощи студентам

День добрый, требуется циклом пройтись по комбобоксам и едитам и зделать их видимыми, ну или активными:

Delphi

1
2
3

for c:=1 to J do
 Form1.ComboBox1.Enabled:=true; 
Edit24.Visible:=false;

тоже и для Едитов, проблема в том КАК ИХ ПЕРЕЧИСЛИТЬ В ЦИКЛЕ?
ПРОБОВАЛ Form1.ComboBox[J].Enabled:=true; и Form1.ComboBox(J).Enabled:=true; не получается

@Arcor · 06.03.2011, 11:56

Создай массив элементов
создай их на форме и играйся как нужно будет

Delphi

1	Form1.ComboBox[J].Enabled:=true;

, а это массив элементов был созданный, что ты так их перечислить хочешь?

@xomakec · 06.03.2011, 12:13 **[ТС]**

Создал массиы для КОМБОБОКСОВ : var ArrCom: array[1..100] of TComboBox;
Прописал for c:=1 to J do ArrCom[J].Visible:=false;

по идее при вводе у меня J = 2 и должны скрыться первые 2 комбобокса.
Компилирует, но при этом действии выводит ошибку

@Arcor · 06.03.2011, 12:22

массив ты создал, а как создал компоненты? давай сюда лучше свой проект быстрее разберемся, а то вроде как мало инфы для понятия что к чему

@xomakec · 06.03.2011, 12:23 **[ТС]**

Аааа я их же не занес в массив) ПРАВИМ!

@reb00t365 · 07.03.2011, 00:04

В переменные добавь

Delphi

1	arr:array[1..10] of TCheckBox

И при нажатии на кнопку:

Delphi

1 2	For i:=1 to 10d o arr[i]:=FindComponent(Format('CheckBox%d',[i])) asT CheckBox;

Все! Теперь можно обращаться примерно так:

Delphi

1	arr[5].checked:=true;

Все элеминтарно просто

@saf_4ek · 07.03.2011, 12:25

Спасиба)

@xomakec 0 / 0 / 0 Регистрация: 06.03.2011 Сообщений: 17
	06.03.2011, 12:13 [ТС]	3
	Создал массиы для КОМБОБОКСОВ : var ArrCom: array[1..100] of TComboBox; Прописал for c:=1 to J do ArrCom[J].Visible:=false; по идее при вводе у меня J = 2 и должны скрыться первые 2 комбобокса. Компилирует, но при этом действии выводит ошибку 0

@Arcor 5706 / 2297 / 466 Регистрация: 20.11.2009 Сообщений: 7,721 Записей в блоге: 1
	06.03.2011, 12:22	4
	массив ты создал, а как создал компоненты? давай сюда лучше свой проект быстрее разберемся, а то вроде как мало инфы для понятия что к чему 0

@xomakec 0 / 0 / 0 Регистрация: 06.03.2011 Сообщений: 17
	06.03.2011, 12:23 [ТС]	5
	Аааа я их же не занес в массив) ПРАВИМ! 0

@saf_4ek 0 / 0 / 0 Регистрация: 07.03.2011 Сообщений: 11
	07.03.2011, 12:25	7
	Спасиба) 0