событие для массива созданных элементов

[zvygin1964]

Тогда как это исправить? :

procedure TForm1.FormCreate(Sender: TObject);
 var
   i: Integer;
begin
  EditList := TEditList.Create();
  //EditList.Add(Edit1);  Так не хочу
 // EditList.Add(Edit2);
     for i:=0 to EditList.Count - 1 do   // Хочу так
    begin
      EditList.Add(EditList[i]);    //   Не работает. Как исправить ошибку?
    end;

    for i:=0 to EditList.Count - 1 do
    begin
     EditList[i].Text := 'default';
    end;

  end;

[min@y™]

Я про это уже говорил вот тут.

//украл отсюда: http://zoo-mania.ru/delphi/tobjectlist/index.html

Да ктоб сомневался!

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

Тогда как это исправить? :

procedure TForm1.FormCreate(Sender: TObject);
 var
   i: Integer;
begin
  EditList := TEditList.Create();
  //EditList.Add(Edit1);  Так не хочу
 // EditList.Add(Edit2);
     for i:=0 to EditList.Count - 1 do   // Хочу так
    begin
      EditList.Add(EditList[i]);    //   Не работает. Как исправить ошибку?
    end;

    for i:=0 to EditList.Count - 1 do
    begin
     EditList[i].Text := 'default';
    end;

  end;

Удалить:

//EditList.Add(Edit1);  Так не хочу
 // EditList.Add(Edit2);
     for i:=0 to EditList.Count - 1 do   // Хочу так
    begin
      EditList.Add(EditList[i]);    //   Не работает. Как исправить ошибку?
    end;

и заменить на:

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

[zvygin1964]

Работает! Как всегда, мне помогает только min@y™. Простым студентам это не интересно.