Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Object Pascal / Когда я добавляю обьект в список TStrings как мне его потом уничтожить?

Когда я добавляю обьект в список TStrings как мне его потом уничтожить?

Просто вызовите метод free этого обьекта.
Пример:

procedure TForm1.FormCreate(Sender: TObject);
var
    Icon: TIcon;
begin
    Icon := TIcon.Create;
    Icon.LoadFromFile('C:\Program Files\BorlandImages\CONSTRUC.ICO');
    ListBox1.Items.AddObject('Item 0', Icon);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
    ListBox1.Items.Objects[0].Free;
end;

Copyright ©   "Мастера DELPHI"   E-mail:   delphi@mastak.com  http://www.delphimaster.ru

Источник получения информации: http://www.delphimaster.ru