[Ama]

Сообщение от movnet

Попробуй так :

Код:

procedure TForm1.Button1Click(Sender: TObject);
 var arr:array[1..80] of TEdit;
     i : Integer;
begin
For i:=1 to 80 do begin
    arr[i] := FindComponent(Format('Edit%d',[i])) as TEdit;
    arr[i].Text :='';
end;

ну этим кодом ты привязываешься к именам компонентов. Эт немного не удобно