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

[satana]

Такая задача, есть массив длинной N, и N компонентов TEdit
Каким либо образом можно пройтись в цикле по всем TEdit и занести в text значение из массива?
К примеру

Edit1.text := array[1];
Edit2.text := array[2];
Edit3.text := array[3];

[_SERGEYX_]

var i: Integer;
begin
  for i := 0 to ComponentCount - 1 do
    if (Components[i] is TEdit) then
      (Components[i] as TEdit).Text := 'Пиши что угодно';
end;

[Alex21]

Делай проще. Осуществляй поиск Едитов по именам:

var
a:array[1..N]of TEdit;
....
for i:=1 to N do
 a[i]:= Form1.FindComponent('Edit00'+inttostr(i)) as TEdit;

В этом примере Editы имеют имена Edit001, Edit002..., т.е. названы так специально, чтобы использовать в массиве.

Вызов свойств идет так:

a[i].Text:='Текст';

А для занесения свойства "текст" создай еще один массив.

 
var 
B:array[1..N] of string;
....
for i:=1 to N do
    B[i]:=A[i].Text;

[itisiam]

а не проще ли создавать TEdit`ы динамически? задать в начале

 
var
  EditS: array [1..N] of TEdit

и потом создавать их в OnFormCreate
Тогда к ним без проблем можно по индексам обращаться - например EditS[5]:= etc.
вроде так можно..

[_SERGEYX_]

var EditS: array [1..N] of TEdit

Но в таком случае нужно прописывать родителя, left, top и т.п. А в конце free... Лишние проблемы.