06.04.2012, 15:49
|
|
Начинающий
|
|
Регистрация: 12.12.2011
Адрес: Москва
Сообщения: 150
Версия Delphi: XE2-U4
Репутация: 131
|
|
Цитата:
|
Сообщение от PS11011010
Код:
i:=0;
repeat
if (Pos(Edit1.text,listbox1.items[i])=0) then listbox1.items[i].delete;
i++
until i=listbox1.count-1; |
Только inc(i); а не i++  |