TStringList Замена символа на ряд символов.

[Serge_Bliznykov]

for i:=SL.Count - 1 downto 0 do
  if Pos(' #EXTINF:254 ', SL.Strings[i])>0 then 
       SL.Delete(i);

[Stilet]

Ну в цикле пройдись и проверяй

If pos('#EXTINF:',ВСтроке)<>0 then Строка:='';

[Liite]

большое спасибо , попробую ....

[Alex Cones]

StringReplace уже отменили?

[Stilet]

StringReplace уже отменили?

Нет. Но вдруг нужно еще какие то действия кроме удаления выполнить

[notHaker]

Сообщение от Alex Cones

Имеется TStringList на 100 строк.
Имеется символ "@", который нужно во всех строках заменить на "001".
Раньше ходил циклом по каждому символу строки, потом Copy выдирал строку до символа и после, между ними вставлял "001". А можно это сделать одним оператором? Или без цикла

While Pos(List[N],'@')<>0 do

не обойтись?

P.S. На поиск не посылайте, ничего схожего не обнаружил (только 1 на 1, а у меня 1 на 3).

Я не думаю, что даже процедуры ядра не делают тот же цикл. Чем копаться в документации, лучше написать на асм-вставках свой код.

[Liite]

ещё один вопросик я так понимаю, что сия конструкция

for i:=SL.Count - 1 downto 0 do
if Pos(' #EXTINF:254 ', SL.Strings[i])>0 then
SL.Delete(i);

будет шерстить весь файл пока не дойдёт до конца, тоесть по итого должны будут остаться только строки с путями к файлам, читая которые софтина будет находить их и делать с ними что надо.

[Serge_Bliznykov]

ещё один вопросик я так понимаю, что сия конструкция
....
будет шерстить весь файл пока не дойдёт до конца, тоесть по итого должны будут остаться только строки с путями к файлам

по смыслу - почти... Только шерститься будут строки от конца списка к началу. и будут удалены все строки, содержащие указанный текст... А что там останется (пути к файлам или что-то другое) - то и останется!