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

[Jetro]

Суть проблемы:
У нас есть TStringList, в котором есть N-ное количество строк. На каждую строку создается, предположим, TLabel.
В случае изменения количества строк должно меняться и количество TLabel. Если мы увеличим количество строк, то новые TLabel создаются без проблем, но если количество строк уменьшить, то созданные TLabel на уже не существующие строки никуда не деваются.
Я попытался уничтожать все TLabel, но у меня ничего не вышло, получается удалить только самую последнюю, и все.

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

Как удалить динамически созданные Label?

[Utkin]

Ай-яй-яй. Кто же так создает. Ты в цикле создаешь одну и ту же метку. Создай массив компонентов и "приклей" его ко всем изменениям в StringList. Кстати, нафига это все?

[evg_m]

Ты в цикле создаешь одну и ту же метку.

Все нормально. Меток будет создано столько сколько надо. Надо будет только правильно размещать их на форме чтобы они не лезли друг на друга. (у всех одинаковые координаты поэтому видим только созданную последней).

label.top:=...;
label.left:=...;

а как их потом найти (для удаления) смотри похожие темы, там это наверняка было.

[Utkin]

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

Меток будет создано столько сколько надо.

а) Label - Насколько я помню это слово зарезервировано
б) Меток будет создано столько, верно, но его идентифкатор будет указывать на последнюю... Именно по этой причине у него и возникают проблемы...

[evg_m]

но его идентифкатор будет указывать на последнюю...

ну и что из этого? Об остальных будет помнить тот компонент для которого они были созданы TLabel.Create(self) . В данном случае это видимо форма (self).

менно по этой причине у него и возникают проблемы...

на мой взгляд его проблемы

у всех одинаковые координаты поэтому видим только созданную последней

получается удалить только самую последнюю, и все.

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

а как их потом найти (для удаления) смотри похожие темы, там это наверняка было.

Tcomponent + components[] , componentcount
component as Tlabel
component is Tlabel

[_SERGEYX_]

Utkin правильный вопрос задал "нафига это все?"
Может listbox использовать вместо всего этого?
А при удалении label-а из середины нужно у нижестоящих изменить свойство Top?
Или всем установить свойство Align:= alTop;? Несерьезно.

[Utkin]

evg_m, это все понятно . Я не об этом. А о том, что такой рецепт через задний проход. Есть более логичные, простые, а главное понятные (а следовательно и удобные в отладке) пути...

[Jetro]

В первом посте код для примера, я его написал прям здесь, когда пост создавал. В программе я использую немного другой код, но принцип действия тот-же, да и не лабелы я создаю, а кнопки с определенным действием, несколько листбоксов, и еще по мелочи. Компоненты один на одного не налазят, а на первой странице я не вписал расположение TLabel потому, что хотел сделать код примера покороче, чтобы не напрягать читающих ненужными действиями.
Мне попросту нужно понять как удалить все созданные динамические компоненты, а потом я без проблем интегрирую решение в свой код. Конечно можно было-бы выложить весь свой исходник, а потом просто взять готовое решение без малейшего понятия как оно работает, потому что обычно таком случае довольно сложно разобраться в принципе работы.

[Utkin]

Мой рецепт - использовать массив компонентов.

[evg_m]

почитать что такое
Tcomponent + components[] , componentcount
component as Tlabel
component is Tlabel

как удалить объект (наверное Free). компонент то же объект. Об остальном позаботится VCL. точнее Tcomponent.Destroy;