[Oleg]

Имеем ListBox(cd), нужно проанализировать и удалить оттуда ненужные строки.
Вот код:

Код:

1 2 3 4 5 6 7 8 9

var i:integer; begin   for i:=1 to cd.Items.Count do begin   if cd.Items[i] = 'test1' then cd.Items.Delete(i);   if cd.Items[i] = 'test2' then cd.Items.Delete(i);   if cd.Items[i] = 'test' then cd.Items.Delete(i);   end; end;

Как правильно удалить и пробовал ставить Refresh, не помогает, подскажите что делаю не так

[aleksnine]

Код:

1 2 3 4 5 6 7 8

var i:integer; begin   for i:=cd.Items.Count-1 downto 0 do begin   if cd.Items[i] = 'test1' then cd.Items.Delete(i);   if cd.Items[i] = 'test2' then cd.Items.Delete(i);   if cd.Items[i] = 'test' then cd.Items.Delete(i);   end;

[Rokuell]

Всё дело в том, что когда из списка удаляется элемент, то все идущие после него сдвигаются(напр: идёшь от 1 до 5 - удалил 3 элемент и 4 и 5 стали 3 и 4, отсюда все ошибки), поэтому и надо проверять список с конца.

[Oleg]

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

Код:

Этот код тоже дает ошибку, вот как правильно обрабатывается:

Код:

1 2 3 4 5 6 7 8 9

for i:=cd.Items.Count-1 downto 0 do begin   if cd.Items[i] = 'test1' then cd.Items.Delete(i); end;   for i:=cd.Items.Count-1 downto 0 do begin   if cd.Items[i] = 'test2' then cd.Items.Delete(i); end;   for i:=cd.Items.Count-1 downto 0 do begin   if cd.Items[i] = 'test' then cd.Items.Delete(i); end;

[The Shadow]

А не легче

Код:

1 2	for i:=cd.Items.Count-1 downto 0 do if (cd.Items[i] = 'test1') or (cd.Items[i] = 'test2') or (cd.Items[i] = 'test')  then cd.Items.Delete(i);

?

[Oleg]

Сообщение от The Shadow

А не легче

Код:

?

И правда легче, спасибо, как-то сразу не догадался.