обращение к именам компонентов в цикле

[JK0]

Пишется игра "Жизнь", для отображения живых/мёртвых клеток выбран компонент CheckBox, данные в массив из CheckBoxов вносятся из другого массива.
Подскажите, пожалуйста, как в цикле обращаться к CheckBoxам, т.е. чтобы менялся индекс CheckBox1, CheckBox2...
Если в переменную типа string сохранять полностью имя компонента А:='CheckBox'+inttostr(i), а потом писать что-то типа А.свойство - не работает.

[Stilet]

С потолка:

with controls do
 for i:=0 to controlscount-1 do
  if control[i] is TCheckBox then TCheckBox(control[i]).четамнуна

[JK0]

Спасибо! Всё работает!

[_-Re@l-_]

Да нет, не всё.Делаю так:

With controls Do
      For i:=1 To controlscount Do
      Begin
            If control[i] Is TEdit Then
            Begin
                  X:=StrToInt(TEdit(Control[i]).Text);
                  Adder:=Adder*X;
            End;
      End;

В строке with controls do выдаёт ошибку '[ expected but Do Found'.как быть?

[JK0]

Вот, из рабоче проги вырезан (а как "с потолка" без единой ошибки?):

with controls[i] do
for i:=0 to controlscount-1 do
if controls[i] is TCheckBox then
if <мои условия> then TCheckBox(controls[i]).State:=cbChecked else
TCheckBox(controls[i]).State:=cbUnChecked;

[Stilet]

with controls do

Ой! Это я погорячился... Уберите эту строку.

[JK0]

Да, без неё тоже всё работает

[XeruH]

procedure TTempForm.Button1Click(Sender: TObject);
var
  i: Integer;
  S: string;
begin
  for i:=0 to Pred(ControlCount) do
    If Controls[i] Is TEdit Then
    Begin
      S:= S+TEdit(Controls[i]).Text;
    End;
  ShowMessage(S);
end;

Обрабатывает Edit'ым лежащие на форме.


Или

функция FindComponent и F1 вам в помощь

TEdit(FindComponent('Edit' + IntToStr(i)));

P.S. начинать цикл нужно с 0, т.к. первый элемент Controls с индексом 0.