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

[Volkogriz]

Доброе время суток!
Нужно в TStringList в конце найти подрядят четыре символа , например (abcd)
и если строка содержит (abcd) то оставляем её если нет то удаляем строку.
Не нашёл не чего надеюсь на помощь!
За ранее благодарен!
С уважением,
Volkogriz!

[Базиля]

Метод Delete - удаляет строку по заданному индексу.
Или в чем у вас трудности?

[Volkogriz]

Метод Delete - удаляет строку по заданному индексу

.
Это я в курсе)
Мне надо именно оставить строки которые, в конце строки имеют (abcd) ну представте что это расширение .exe
Все строки которые заканчиваются другими символами удалить.
Вот, помойму объяснил))
Спать хочу а сделать надо))

[Пепел Феникса]

метод Copy на выделение нужной вам части строки, и обычное сравнение.
и если это список файлов то расширение можно получить через ExtractFileExt.

ну и цикл(лучше while) в основе.

[Volkogriz]

Я реализовать не пойму как))
Можно примерчик маленький

[Базиля]

i:=0;
while i<=str.count-1 do
   if copy(str[i],str[i].length-3,4)='abcd' then
      str.delete(i)
   else
      inc(i);

P.S Доброй ночи!

[Volkogriz]

Не как не пойму)

for x := 0 to StringList1.Count-1 do
if (StringList1[x]<>'') and (StringList2.IndexOf(StringList1[x])=-1) then
StringList2.Add(StringList1[x]);

Вот нужно после проверки реализовать.
В принципе в любом месте, я просто разберусь.
Я уже проект испортил, хорошо сохраняю периодически))))
С уважением,
Volkogriz!

[Кольша]

Я так полагаю с ip мучаетесь?

for x := 0 to StringList1.Count-1 do
if (StringList1[x]<>'') and (StringList2.IndexOf(StringList1[x])=-1) and(copy(StringList1[x],StringList1[x].length-3,4)='AbCd') then
StringList2.Add(StringList1[x]);

Как то так..

[Volkogriz]

Вот вотут он не компилит((
При построении выдает ошибки вида
[Error] RSPSystem.pas(211): Record, object or class type required
в строке
StringList1[x].length-3,4

[Пепел Феникса]

StringList1[x].length-3

заменить на

Length(StringList1[x])-3