[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.

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

[Yurk@]

Код:

for i := 0 to ComponentCount - 1 do
  if Components[i] is TEdit 
    then (Components[i] as TEdit).ReadOnly := False;

[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; Как это записать на делфи?

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

[mpdasa]

А как сделать цикл со следующим кодом?

Эта процедура делает цветную рамку вокруг компонента, в моём случае label.

Код:

procedure SetComponentBorder(c: TControl; colorr: integer);
begin
  with TShape.Create(c) do begin
    Parent:=c.Parent;
    Top:=c.Top-1;
    Left:=c.Left-1;
    Pen.Color:=colorr;
    Width:=c.Width+2;
    Height:=c.Height+2;
    SendToBack;
  end;
end;

А вот здесь собственно говорю, какой компонент в какой цвет закрашивать.

Как здесь сделать цикл? //цвет один для всех, компонент только label

Код:

procedure TForm1.FormCreate(Sender: TObject);
...
begin
SetComponentBorder(Label1, 9639167);
SetComponentBorder(Label2, 9639167);
SetComponentBorder(Label3, 9639167);
SetComponentBorder(Label4, 9639167);
...

[MiraLaklamon]

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

Как здесь сделать цикл? //цвет один для всех, компонент только label

Код:

procedure TForm1.FormCreate(Sender: TObject);
...
begin
SetComponentBorder(Label1, 9639167);
SetComponentBorder(Label2, 9639167);
SetComponentBorder(Label3, 9639167);
SetComponentBorder(Label4, 9639167);
...

Тоже самое, только вместо

Код:

FindComponent('Edit'+IntToStr(i)) as TEdit

пишешь

Код:

FindComponent('Label'+IntToStr(i)) as TLabel

[mpdasa]

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

Тоже самое, только вместо

Код:

FindComponent('Edit'+IntToStr(i)) as TEdit

пишешь

Код:

FindComponent('Label'+IntToStr(i)) as TLabel

А что мне в самом цикле процедуры написать вместо слов LabelN?

Код:

SetComponentBorder(Label1, d);

То есть как оформить эту единственную строку цикла?

Простите, может очень уж простые вопросы, но в программировании я новичёк.

[MiraLaklamon]

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

А что мне в самом цикле процедуры написать вместо слов LabelN?

Код:

SetComponentBorder(Label1, d);

То есть как оформить эту единственную строку цикла?

Простите, может очень уж простые вопросы, но в программировании я новичёк.

Код:

var
  i: Integer;
begin
  for i := 1 to 4 do
  begin
    SetComponentBorder(FindComponent('Label'+IntToStr(i)) as TLabel, d);
  end;
end;