[Ztrel]

Здравствуйте, уважаемые программисты!
Недавно собрался написать программку... Написал. Заняла оооочень много места. Решил сократить - не получается...
Помогите, пожалуйста!

Как сократить вот енту штуку:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Edit1.Clear;
Form1.Edit2.Clear;
Form1.Edit3.Clear;
Form1.Edit4.Clear;
Form1.Edit5.Clear;
Form1.Edit6.Clear;
Form1.Edit7.Clear;
Form1.Edit8.Clear;
Form1.Edit9.Clear;
Form1.Edit10.Clear;
Form1.Edit11.Clear;
Form1.Edit12.Clear;
Form1.Edit13.Clear;
Form1.Edit14.Clear;
Form1.Edit15.Clear;
Form1.Edit16.Clear;
Form1.Edit17.Clear;
Form1.Edit18.Clear;
end;

Admin: Пользуемся тегами!

Это, естественно, для примера.
Можно ли загнать этот процесс "очищения" в цикл? А если можно - то как? Просто написать

for i:= 1 to 18 do
Form1.EditI.Clear;

Не получается...
Помогите, пожалуйста!
Заранее спасибо.

[lmikle]

Можно.

Код:

for i := 0 To Self.ComponentCount-1 Do
  If Self.Components[i] Is TEdit Then
    (Self.Components[i] As TEdit).Clear;

Self - это сама форма

[Ztrel]

Спасибо огромное!
Все четко и понятно! Еще раз спасибо!