Поиск фрагмента по Lixtbox'у.

[Pavarotti]

Уважаемые знатоки, помогите, пожалуйста, со следующей проблемкой:
В Listbox'e построчно выводится инфа следующего типа:
3+36+4.5+4+3.5+3 = 54
3+17.05+13.05+12+6+3.5=54.6
3+36+12+4 = 55
36+5+4.5+4+3.5 = 53
3+13.05+17.05+12+5+4=54.1
32+12+6 = 54

Необходимо сделать так, чтобы программа удаляла строчки, включающие фрагменты текста "17.05+13.05" и "13.05+17.05".
В данном конкретном случае после этой операции в Listbox'e должно остаться:
3+36+4.5+4+3.5+3 = 54
3+36+12+4 = 55
36+5+4.5+4+3.5 = 53
32+12+6 = 54

Потенциально, количество строчек, включающих искомый текст может любым.

Вот такая вот в принципе задачка.

Заранее благодарен за ответы.

[DIgorevich]

Пишу алгоритм, примерный. Создаешь цикл перебора строк Listbox'a. В цикле ищешь в строке нужный текст. Если есть совпадение, то удаляешь текущий номер строки. Выходишь из цикла и начинаешь его сначала. Т.к. кол-во строк уже будет другим.

[Stilet]

С потолка, поясняя предидущий пост.

with ListBox do
 for i:=0 to Items.Count-1 do
  if pos('17.05+13.05',items[i])<>0 then delete(i);

[DIgorevich]

Сообщение от Stilet

С потолка, поясняя предидущий пост.

with ListBox do
 for i:=0 to Items.Count-1 do
  if pos('17.05+13.05',items[i])<>0 then delete(i);

Ну вот... я специально код не писал, чтобы человек сам учился...

[Stilet]

DIgorevich

Не волнуйся, научится, этот код не совершенен, я койчего в нем не учел.

[Pavarotti]

Спасибо большое, но что-то не выходит....
Прописал:

procedure TForm13.Button9Click(Sender: TObject);
var i:word;
begin
if ListBox1.Items.Count > 1 then
begin
    with ListBox1 do
    begin
    if pos('17.05+13.05',ListBox1.items[i])<>0 then
    ListBox1.Items.Delete(i)

end;

Не фига не удаляет... Есть идеи почему?

[DIgorevich]

А где у тебя i инициализируется?

[Stilet]

Есть идеи почему?

Есть. Например внимательно почитать мой пример. (смотреть на слово for)

[Pavarotti]

Оё-ёй!!! Ступил я, товарищи, каюсь!
Вот процедурка согласно вашему примеру.

procedure TForm13.Button9Click(Sender: TObject);
var i:integer;
begin
with ListBox1 do
 for i:=0 to Items.Count-1 do
  if pos('17.05+13.05',items[i])<>0 then
  listbox1.Items.delete(i);

end;

То что надо делает, но, к сожалению, только один раз.
Т.е. при нажатии кнопки прога удаляет первую наденную строчку с искомым фрагментом и выдает ошибку List index out of bounds (и цифорки разные), и дальше уже не ищет и не удалает.

[DIgorevich]

А ты мой пост читал? я же писал, что после 1-го удаления, кол-во строк уже будет другим