[Erilar]

На форме листбокс и эдит.
В листбоксе несколько строк:
0001, 0002, 0011, 1112.
Как сделать чтобы при записи в эдит, в листбоксе отфильтровывались строки? Например.
Эдит - 1, листбокс - 0001, 0011, 1112.
Эдит - 2, листбокс - 0002, 1112.
Эдит - 011, листбокс - 0011.

[PS11011010]

Код:

i:=0;
repeat
if (Pos(Edit1.text,listbox1.items[i])=0) then listbox1.items[i].delete;
i++
until i=listbox1.count-1;

[nixel]

Сообщение от 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++

[Pyro]

и else перед inc(i)/i++

[nixel]

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

и else перед inc(i)/i++

ммм... серьезно, зачем?
Расскажите, пожалуйста, может у меня ошибка в логике.

[Pyro]

ну я так понял, после удаления не надо изменять i, т.к. элементы сами сместятся и под тем же i уже будет новый элемент
другими словами без else будет перепрыгивать некоторые элементы, не проверяя

[PS11011010]

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

и else перед inc(i)/i++

Слушай, и правда! Недавно похожий алгоритм писал, а сейчас поторопился...

[nixel]

Можно так. Чтобы покороче.

Код:

 For i:= 0 to (listbox1.count - 1) do 
if (Pos(Edit1.text,listbox1.items[i])=0) then listbox1.items[i].delete;