[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]

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

Код:

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

[nixel]

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

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

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

[Pyro]

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

[YVitaliy]

Если ты удалил итем, на его место стает следующий. И еще в конце все-равно сортировать листбокс нужно - по возрастанию чтоли.

[nixel]

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

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

оу, действительно. спасибо. Тогда лучше не делать через for, дабы не изменять счетчик (компилятор варнинги выдает, не любит он это дело =))

[PS11011010]

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

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

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