как бы фильтр в ListBox e

← →
MisterBin © (2002-05-01 15:15) [0]

Нужно чтобы если Listbox содержит строки со значением "." и "..", то они оттуда удалялись, а все остальные оставались.

← →
VID © (2002-05-01 15:30) [1]

...
Var SL:TStringList;
X:Integer;
Begin
SL:=TStringList.Create;
For X := 0 to ListBox1.Items.Count - 1 do
IF (POS (".", ListBox1.ITems.Strings [x])=0) and (POS ("..", ListBox1.ITems.Strings [x])=0) then SL.Add (ListBox1.Items.Strings[x]);

ListBox1.Items.Assign (SL);
SL.Free;
end;

← →
Anatoly Podgoretsky © (2002-05-01 15:32) [2]

Listbox.Items[].Delete

← →
VID © (2002-05-01 15:44) [3]

TO Anatoly Podgoretsky :
я тоже так думал, но потом одолели сомнения:
пусть дано:

for x := 0 to listbox1.items.count - 1 do
if listbox1.items.strings[x] = "." then listbox1.items.delete (x);

так вот не возникнет ли ошибки ? Ведь изменяется крайний предел цикла в теле самого цикла...

просто предпочёл указать более "безопасный" вариант...

← →
Anatoly Podgoretsky © (2002-05-01 16:08) [4]

VID © (01.05.02 15:44)
Конечно возникнет, но кто же так пишет, верная дорога в могилу
Твой первый совет я не видел, но он тоже не хорош
Надо использовать обычный цикл вниз

← →
Malder © (2002-05-01 16:29) [5]

Мне кажется вы не поняли вопроса. Если опираться на понятия фильтра, то я так себе представляю решение проблемы.
Нужно писать новый TListbox в котором будет событие типа OnAddItems, возникающее при добавлении строки. И в нем нужно проверять: если добавляемая строка "." или ".." то такая строка НЕ добавляется. То есть с помощью items.add и items.insert просто невозможно добавить строку с таким значением.

А если просто не добавлять в ListBox такие значения... то это и ежу понятно, как делать:

if (s<>".") and (s<>"..") then Listbox1.Items.Add(s);

Просто противоречие между темой (фильтр) и объяснением (удаление)

TO Song: насчёт "писать новый TListBox" - это перебор... достаточно контролировать добавляемую строку, в той процедуре которая этим и занимается.

А если Items заполняются из файла, то после метода LoadFromFile
вызвать процедуру по корректировке списка.

как бы фильтр в ListBox e Найти похожие ветки