Последние записи

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

31st
Янв

Удаление строки из TStringList

Posted by micher under Delphi

Нужно в TStringList в конце найти подрядят четыре символа , например (abcd). Если строка содержит (abcd), то оставляем её, если нет, то удаляем строку.

Кольша



for x := 0 to StringList1.Count-1 do

if (StringList1[x]'') and (StringList2.IndexOf(StringList1[x])=-1) and(copy(StringList1[x],Length(StringList1[x])-3,4)='AbCd') then

StringList2.Add(StringList1[x]);

тема на форуме