david_yusupov Опубликовано 4 марта, 2016 Поделиться Опубликовано 4 марта, 2016 (изменено) Производим заполнение ListBox for i := i fo Count - 1 do begin xItm := TListBoxItem.Create(nil); xItm.Height := 30; xItm.Parent := ListBox; xItm.Text := xV2.Name; xItm.Data := xV2; end; Тут все нормально заполняется, но как и вызваем ListBox.clear, список зачищается при повторном заполнение восстанавливаются предыдущий значение Изменено 5 марта, 2016 пользователем Andrey Efimov Добавил тег "Код" Цитата Ссылка на комментарий
0 Vitaldj Опубликовано 4 марта, 2016 Поделиться Опубликовано 4 марта, 2016 а listbox.items.clear пробовали? Цитата Ссылка на комментарий
0 david_yusupov Опубликовано 4 марта, 2016 Автор Поделиться Опубликовано 4 марта, 2016 а listbox.items.clear пробовали? да испробова... без изменений (внутри ListBox - есть FToInflate: TList<TListBoxItem>, куда складываются все Item - ы... ), а что дальше делать не придумал Цитата Ссылка на комментарий
0 krapotkin Опубликовано 4 марта, 2016 Поделиться Опубликовано 4 марта, 2016 сделайте тестовый пример никогда не сталкивался с подобным у меня все чистит нормально Цитата Ссылка на комментарий
0 enatechno Опубликовано 4 марта, 2016 Поделиться Опубликовано 4 марта, 2016 procedure FreeItems(const aStrings: TStrings); var i : Integer; aObj: TObject; begin for i := Pred(aStrings.Count) downto 0 do try aObj := aStrings.Objects[i]; if Assigned(aObj) then begin FreeAndNil(aObj); aStrings.Objects[i] := nil; end; except Exit; end; end; вызов: FreeItems(ListBox1.Items); Цитата Ссылка на комментарий
0 Модераторы Равиль Зарипов (ZuBy) Опубликовано 4 марта, 2016 Модераторы Поделиться Опубликовано 4 марта, 2016 (изменено) while TListBox Items.Count > 0 do TListBox Items.Delete(0); Изменено 5 марта, 2016 пользователем Andrey Efimov Добавил тег "Код" enatechno и zairkz 2 Цитата Ссылка на комментарий
Вопрос
david_yusupov
Производим заполнение ListBox
Тут все нормально заполняется, но как и вызваем ListBox.clear, список зачищается
при повторном заполнение
восстанавливаются предыдущий значение
Изменено пользователем Andrey EfimovДобавил тег "Код"
Ссылка на комментарий
5 ответов на этот вопрос
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.