설정 : Edit의 Name속성을 Edit0 ~ Edit30이라고 가정한 후

var
    TmpComp : TComponent;

for i := 0 to 30 do begin
   TmpComp :=  FindComponent('Edit' + IntToStr(i));
   if TmpComp <> nil then
      TEdit(TmpComp).Text := 배열[i];
end;

라고 하면 될 거 같은데..^^
테스트는 안 해봐서.. 잘 될런지..^^


*^^* 즐거운 하루 *^^*

일단 폼위에 작업을 편하게 하기 위해서 TEdit 가 순서대로 있다고 가정
하겠습니다. 테스트를 편하게 하기 위해서 전 10개만 넣었구요...
이름이 Edit1 .. Edit10 까지 있다구 하죠.
배열도 순서를 같이 하기 위해서 array [1..10] of string 이라고 했습다.

폼의 Controls 속성으로 폼위에 올려진 녀석들의 레퍼런스를 얻을 수 있죠.
얻어진 레퍼런스가 TEdit type인지 검사해서 앞에 붙는 'Edit' 빼고 뒤의
값을 정수값으로 바꾸어서 해당 배열의 값을 Text 속성으로 설정해 줍니다.

procedure TForm1.FormCreate(Sender: TObject);
var
   nIndex   :Integer;
   strTemp  :string;
begin
   for nIndex := 1 to 10 do
      arTemp[nIndex] := 'str ' + IntToStr(nIndex) + ' ^^ ';
   for nIndex := 0 to ControlCount - 1 do begin
      if Controls[nIndex] is TEdit then begin
         strTemp := Copy(Controls[nIndex].Name, 5, 10);
         TEdit(Controls[nIndex]).Text := arTemp[StrToInt(strTemp)];
      end;
   end;
end;