Delphi. Как правильно удалять несколько элементов из TStringList, TObjectList и вообще из списков?

Delphi. Как правильно удалять несколько элементов из TStringList, TObjectList и вообще из списков?

Как правильно удалять несколько элементов из TStringList, TObjectList и вообще из списков?

И вот такой алгоритмик ошибочен так как постоянно меняется Count и индексы элементов, пробовал через repeat и while, но там похожая ситуация. Как вариант проходить одним циклом, копировать элементы в другой StringList, потом искать их методом IndexOf, но это только если элементы уникальны. Либо запоминать адреса переменных, это уже будет работать для всех переменных, но это, блин как-то синхрофазотронно)))
В общем, чувствую, простая задача, а выхода пока не вижу.

Обратился я на форум и там мне помогли. А решение-то было 1 одну строку.

И ещё один вариант через цикл while

 

 

 

Опубликовано в рубрике Delphi

Добавить комментарий