Обратиться к классу (Delphi)

[Air]

Замучился копать 250 тем, так до конца и не дошёл - в праве меня ругать.

А вопрос такой.
- Как обратиться к классу по индексу?

Поясняю.
Есть TCheckBox1 ... TCheckBox24.
Как сделать вот так.

var i:integer;
     Arr:array[1..24] of boolean;
begin
For i:=1 to 24 do
 Arr[i]:=CheckBox[i].Checked;// порядковый номер задать через переменную

А то ведь писать 24 почти одинаковых строк не разумно...

Заранее благодарю.

[Stilet]

Ну если ты все эти компоненты в массив специально не собирал, то можно просто обратиться к коллекции:

//********* FOR ******************
for i :=0  to form1.ComponentCount-1  do
begin
 if form1.Components[i] is TButton then
  tbutton(Form1.Components[i]).Caption:='qdasd';
end;
//******* END FOR ****************{}

Здесь в цикле отбираются все Буттоны на форме.

Кстати вместо формы мона применять Панели и прочие контейнеры.

[puporev]

А я что-то не понял. Сначала говорится о классах.

А вопрос такой.
- Как обратиться к классу по индексу?
Поясняю.
Есть TCheckBox1 ... TCheckBox24.

А в примере речь идет уже о компонетах.
Про классы это шутка такая?

[Stilet]

А я что-то не понял.

Я как понял автора так и написал, телепатор мой вроде еще в строю )

[puporev]

Извините, я имел ввиду пример автора темы.

For i:=1 to 24 do
Arr[i]:=CheckBox[i].Checked;// порядковый номер задать через переменную

[Stilet]

puporev, да я понял, эт я так на всякий случай. Помоему автор просто не понял как сформулировать вопрос. )

[Карась]

Можно решить в лоб.

Создать два массива:

Mas : Array [1..4] of TCheckBox;
M : Array [1..4] of Boolean;

Один раз заполнить его:

Mas[1] := CheckBox1;
Mas[2] := CheckBox2;
Mas[3] := CheckBox3;
Mas[4] := CheckBox4;

И в программе обращаться к нему:

For i := 1 To 4 Do M[i] := Mas[i].Checked;

[Air]

puporev Stilet
Верно, я точно не знал как это сказать квалифицированно.
Дык, а разве TCheckBox это не класс,... компонент? ... ошибся, поздно уже было

[puporev]

TCheckBox - это класс, а CheckBox1:TCheckBox; - это компонент этого класса.

[Air]

Карась
То же верно, но грузить 24 бокса.... а если в программе их больше?...

puporev
Ясно.

Stilet
Я разграничил Tlabel по двум GroupBox(1 и 2), но имена задались все подряд, как обратиться только к GroupBox1