Удалить не нужное из ListBox

[Shouldercannon]

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

d:=pos(Edit1.Text, ListBox1.Items.Text);//èùåì ïîçèöèþ
s:=ListBox1.Items.Text;//÷èòàåì åäèò
delete(s, 1, d);//óäàëÿåì èç ñòðîêè
ListBox1.Items.Text:=s;//çàïèñûâàåì åäèò

В ListBox есть записи такого характера
C:\CSS Server options\CSSZMSS.res
C:\CSS Server options\CSSZMSS.~dpr
C:\CSS Server options\Unit4.ddp
Из них из всех сразу надо удалить какую-ту часть например
C:\CSS Server options
Как такое провернуть (удаляемая часть будет задавать в Edit)?

[evg_m]

как-то так
s:=listbox1.items.strings[i];
delete(s,1,d);
listbox1.items.strings[i]:=s;

[Shouldercannon]

Ммм. Не совсем понял...

[mihali4]

Из них из всех сразу надо удалить какую-ту часть например
C:\CSS Server options

Ну так определите два нужных для этого параметра - номер позиции в строке, где начинается удаляемая подстрока и длина подстроки (она вам известна, т.к. вы задаете подстроку).
Позиция определяется функцией POS.
Только "из всех сразу" не получится - придется по очереди.

Ну почему же? Можно сразу все

Да, верно, если одна и та же подстрока.

[evg_m]

можно попробовать и сразу если replacestring использовать

или

while pos(...)>=0 do delete(...);

[Arigato]

Только "из всех сразу" не получится - придется по очереди.

Ну почему же? Можно сразу все:

ListBox1.Items.Text := StringReplace (ListBox1.Items.Text, 'C:\CSS Server options', '', [rfReplaceAll]);

[Shouldercannon]

Точно с заменой будет проще, а то что-то заесило с удалением.
Последний вопрос. Тоже есть в ListBox1 записи:
C:\sound\1.mp3
C:\sound\1.ztmp
C:\sound\2.mp3
C:\sound\2.ztmp
C:\sound\3.mp3
C:\sound\3.ztmp
Тут надо целиком удалять строки с не нужным форматом (ztmp).

[Arigato]

Нужно сделать цикл по всем строкам и с помощью Pos определять наличие нужного расширения, после чего удалять строку (если условие выполнено).