Удаление динамических объектов

[_SERGEYX_]

Мне попросту нужно понять как удалить все созданные динамические компоненты

procedure TForm1.RzBitBtn2Click(Sender: TObject);
var i: Integer;
begin
  for i := ComponentCount - 1 downto 0 do
    if (Components[i] is TLabel) then
    //можно добавить такую проверку
    // if (Components[i] as TLabel).Tag > 0 then
      (Components[i] as TLabel).Free;
end;

[Прик]

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

Мне попросту нужно понять как удалить все созданные динамические компоненты...

Как вариант: "привязать" ссылки на них в свойствах objects TStringList.

var
  StringList: TStringList;
  i: Integer;
  Lab: TLabel;
begin
  for i := 0 to StringList.Count-1 do begin
    Lab:= TLabel.Create(Self);
    StringList.Objects[I] := Lab;
    Lab.Caption := StringList[i];
    Lab.tag := i;
  end;
end;

//удаление
  for i := 0 to StringList.Count-1 do 
    StringList.Objects[I].Free;

[spamer]

ТС, вопрос надо бы задавать понятнее, а не так - хочу, но не знаю чего...Напишите конкретно, что надо...и думаю нужный ответ сразу же увидите сами...
Ну а из того, что я понял, тот тут Уткин естественно прав - объявляешь массив Баттоно (или чего там надо...), создаешь эти контролы и работаешь с ними. А для удаления юзаешь - FreeAndNil();

[Jetro]

Забросил на выходные я Делфи, вернулся к нему только сейчас.
Итак, решил сделать так, как советовал Utkin - использовал динамический массив компонентов. Получилось приблизительно следующее:

var
  SL: TStringList;
  i: Integer;
  ButtonArray : array of TButton;

...

Procedure CreateBtn();
  begin
    SetLength(ButtonArray, SL.Count);
   for i := 0 to SL.Count-1 do
   begin
    ButtonArray[i]:= TButton.Create(Self);
    ButtonArray[i].Caption := SL[i];
    ButtonArray[i].Parent:=Self;
    ButtonArray[i].Width:= 150;
    ButtonArray[i].left := 20;
    ButtonArray[i].top := 50+i*(ButtonArray[i].Height);
    ButtonArray[i].OnClick := ArrayButtonClick;
   end;
  end;

Понятное дело что Стринглист заполняем до этих действий. Действие по нажатии динамической кнопки тоже не привожу из-за ненадобности.

А очищаем все это дело таким макаром:

procedure TForm1.RefreshButtonClick(Sender: TObject);
begin
 for i := 0 to SL.Count-1 do
  begin
   ButtonArray[i].Free;
  end;
CreateBtn; // Ну и пересоздаем кнопки
end;

Так-же очень даже неплохой вариант решения предложил Прик. По его решению тоже все отлично выполняется, но я все-же решил остановится на массиве компонентов - как оказалось с ним работать удобнее (как говорится - "Век живи, век учись").

Всем большое спасибо за помощь, без вас я-бы еще долго сидел-бы над решением.

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

ТС, вопрос надо бы задавать понятнее, а не так - хочу, но не знаю чего...Напишите конкретно, что надо...и думаю нужный ответ сразу же увидите сами...

Ну не знаю, старался попонятней изложить суть вопроса, даже пример набросал, но если так плохо разъяснил вопрос то прошу прощения.