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

[Pavarotti]

К сожалению, в циклах как и "в выходах из них" я очень мало смыслю.
Смысл понимаю, но как описать не знаю.
Можно немного поконкретнее подсказать правильное изменение кода, чтобы все работало, как надо?
Больше чем уверен проблема для вас просто наилегчайшая, а вот подскажете, я и научусь.

[Stilet]

что-то вроде:

with ListBox1 do
 i:=0;
 while i<Items.Count do begin
  if pos('17.05+13.05',items[i])<>0 then 
   listbox1.Items.delete(i)
  else inc(i);
 end;
end;

С потолка брал.

[DIgorevich]

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

что-то вроде:

with ListBox1 do
begin 
 i:=0;
 while i<Items.Count do begin
  if pos('17.05+13.05',items[i])<>0 then 
   listbox1.Items.delete(i)
  else inc(i);
 end;
end;

С потолка брал.

Всё правильно, только begin добавить надо...

[Stilet]

DIgorevich

Ну бывает, недоглядел.

[DIgorevich]

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

Ну бывает, недоглядел.

Как тут часто говорят: "Не ошибается тот, кто ничего не делает"....

[Pavarotti]

Отлично работает! Спасибо всем огромное!!!
Очень оперативно и поучительно!
Всем большой респект за доброту и отзывчиваость!