Перейти к содержанию
Fire Monkey от А до Я
  • 0

Как правильно зачистить ListBox


david_yusupov

Вопрос

Производим заполнение 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, список зачищается

при повторном заполнение

восстанавливаются предыдущий значение

Изменено пользователем Andrey Efimov
Добавил тег "Код"
Ссылка на комментарий

Рекомендуемые сообщения

  • 0

а listbox.items.clear пробовали?

да испробова... без изменений (внутри ListBox - есть FToInflate: TList<TListBoxItem>, куда складываются все Item - ы... ), а что дальше делать не придумал

Ссылка на комментарий
  • 0

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
  • Модераторы
while TListBox Items.Count > 0 do
TListBox Items.Delete(0);
Изменено пользователем Andrey Efimov
Добавил тег "Код"
Ссылка на комментарий

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить на вопрос...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

  • Последние посетители   0 пользователей онлайн

    • Ни одного зарегистрированного пользователя не просматривает данную страницу
×
×
  • Создать...