Удаление элементов из TStringList в Delphi: как сохранить корректность индексации

Delphi , Компоненты и Классы , Списки

При работе с компонентами, такими как ListBox или ListView, и связанными с ними списками строк TStringList в Delphi, иногда возникает необходимость удаления выбранных элементов. При этом важно учитывать, что удаление элемента из списка строк приводит к смещению индексов оставшихся элементов, что может вызвать ошибки при попытке обратиться к несуществующему индексу.

Проблема

Представим, что у нас есть ListBox или ListView, заполненный элементами, и соответствующий ему TStringList, содержащий те же строки. Наша задача - удалить все выбранные элементы из ListBox/ListView из TStringList.

Ошибка в подходе

Один из распространенных способов решения этой задачи - использование цикла для перебора элементов ListBox и удаления выбранных строк из TStringList. Однако, если удаление происходит в порядке возрастания индексов, то индексы оставшихся элементов будут изменены, и это приведет к тому, что некоторые элементы не будут удалены, несмотря на их выбор.

for i:=0 to ListBox.Count-1 do
  if ListBox.Selected[i] then
    StringList1.Delete(i); // Ошибка: другие строки смещаются вверх

Правильный подход

Чтобы решить эту проблему, необходимо изменить порядок удаления элементов на обратный. Таким образом, удаление элементов, которые имеют больший индекс, не повлияет на индексы элементов, которые уже были обработаны.

for i := ListBox.Count - 1 downto 0 do
  if ListBox.Selected[i] then
    StringList1.Delete(i);

Альтернативный подход

Вместо удаления можно использовать другой подход: сначала очистить TStringList, а затем добавить в него только невыбранные элементы из ListBox.

StringList1.Clear;
for i:=0 to ListBox.Count-1 do
  if not ListBox.Selected[i] then StringList1.Add(ListBox.Items[i]);

Сложные случаи

Если строки в TStringList не следуют в том же порядке, что и в ListBox, то для корректного удаления необходимо использовать метод IndexOf TStringList для поиска индекса строки в списке.

var x, Idx: Integer;
for x := ListBox.Count - 1 downto 0 do begin
   if ListBox.Selected[x] then begin
      idx := StringList.IndexOf(ListBox.Items[x]);
      if(idx <> -1)then StringList.Delete(idx);
   end;
end;

Заключение

При работе с TStringList важно помнить о том, как изменение списка влияет на индексацию элементов. Используя правильный подход, можно избежать ошибок и обеспечить корректное удаление выбранных элементов.

Создано по материалам из источника по ссылке.

Удаление элементов из TStringList в Delphi требует учета изменения индексации оставшихся элементов, чтобы избежать ошибок при доступе к несуществующим индексам.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Списки ::