[MiraLaklamon]

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

У меня в проге много эдитов (162). Как сделать цикл, чтобы в нём менялись эдиты, сначала Edit1, потом Edit2, Edit3 и т. д.
Пока у меня всё линейно и громоздко.

Код:

Edit1.text:='';
Edit1.Color:=ClWindow;
Edit1.ReadOnly:=false;
Edit1.TabStop:=true;

Edit2.text:='';
Edit2.Color:=ClWindow;
Edit2.ReadOnly:=false;
Edit2.TabStop:=true;

и т. д. до 162.

Код:

var
  i: Integer;
begin
  for i := 1 to 162 do
  begin
    with FindComponent('Edit'+IntToStr(i)) as TEdit do
    begin
      text:='';
      Color:=ClWindow;
      ReadOnly:=false;
      TabStop:=true;
    end;
  end;
end;

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

И может есть такая возможность, прописать такой шаг: все_эдиты.ReadOnly:=false; Как это записать на делфи?

Нет. Так нельзя.