[goshaua]

Здравствуйте!
Помогите решить задачу: на форме есть 5 элементов TEdit. нужно записать их имена в массив
и по индексу получать доступ так: ArrEdits[1].Text := 'bla-bla-bla';. Спассибо!

[Страдалецъ]

Код:

Var
  ArrEdit: Array[1..5] of TEdit;
  i: Integer;
begin
 ArrEdit[1] := Edit1;
 ArrEdit[2] := Edit2;
 ArrEdit[3] := Edit3;
 ArrEdit[4] := Edit4;
 ArrEdit[5] := Edit5;
 for i := 1 to 5
 do ArrEdit[i].Text := 'Text'+IntToStr(i);
end;