Почему строки в компоненте ListBox программно удаляются, а визуально нет?

[Velross]

Стоит задача обработать список, найти в нём ключевые слова и удалить всё от первого ключевого слова до последнего.
Я делаю так:

for i:=0 to ListBox1.Items.Count-1 do  begin
if ListBox1.Items[i]='Key1' then
A:=i;
if ListBox1.Items[i]='Key2' then
B:=i;
end;

for i:=A to B do 
ListBox1.Items.Delete(i);

Потом вывожу в Label кол-во элементов списка, в Label показывается, что в списке элементов стало меньше, а реально в списке ничего не удалилось.
Пробовал и Refresh, Update, но все без изменений.

Delphi 7.

[s.Creator]

После удаления перерисуй
ListBox1.Update;

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

Пробовал и Refresh, Update, но все без изменений.

[Noor]

У меня все работает !

procedure TForm1.Button1Click(Sender: TObject);
var
 A,B,i:Integer;
  begin
   for i:=0 to ListBox1.Items.Count-1 do
     begin
      if ListBox1.Items[i]='Key1' then
        A:=i;
      if ListBox1.Items[i]='Key2' then
        B:=i;
    end;
      for i:=A to B do
        ListBox1.Items.Delete(i);
        Label1.Caption := IntToStr(ListBox1.Items.Count);
end;

[mihali4]

У меня тоже.
ТС, попробуйте перезапустить Дельфи - если она "здорова", все станет нормально.

[Velross]

Не знаю чё был за глюк, но почему-то я не догадался перезапустить Делфи, а сегодня утром попробовал и все заработало. Чертавщина какая-то.

Но это не все. Допустим, в элементе 242 строчки,при цикле:

for i:=0 to 242 do
ListBox1.Items.Delete(i);

По идеи, элемент должен полностью очиститься, но на деле строки уменьшаются только в 2 раза: 211, при повторном нажатии кнопки 105, 52, 26, 13, 6, 3, 1, 0.

Что за фигня?

[Stilet]

Рекомендуется так:

for i:=242 downto 1 do
ListBox1.Items.Delete(i);

Или еще проще ListBox1.Items.Clear

[mihali4]

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

По идее, элемент должен полностью очиститься, но на деле строки уменьшаются только в 2 раза: 211, при повторном нажатии кнопки 105, 52, 26, 13, 6, 3, 1, 0.

Я уже объяснял одному товарищу. Повторю.
Когда вы удаляете, допустим, пятую строку, на ее место становится шестая, а ваш счетчик цикла перескакивает ее и дальше удаляет седьмую, стоящую теперь на месте шестой.
Так что никакой мистики...

[Velross]

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

Рекомендуется так:

for i:=242 downto 1 do
ListBox1.Items.Delete(i);

Или еще проще ListBox1.Items.Clear

Большое спасибо за дельный совет. Так все работает как надо.

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

Я уже объяснял одному товарищу. Повторю.
Когда вы удаляете, допустим, пятую строку, на ее место становится шестая, а ваш счетчик цикла перескакивает ее и дальше удаляет седьмую, стоящую теперь на месте шестой.
Так что никакой мистики...

Спасибо за разъяснения. Действительно не знал этого.