Вылетает Out of Bounds в коде помогите разобраться

[Airou]

procedure TForm1.Edit2Change(Sender: TObject);
var i,cnt:word;
begin
 If Edit2.Text<>'' then
   begin
     cnt:=ListBox1.Items.Count-1;
      For i:=0 to cnt do
       If Copy(ListBox1.Items[i],1,Length(Edit2.Text))<>Edit2.Text then  ListBox1.Items.Delete(i);
   end;
end;

Смысле кода: В Edit2 вводится некий текст. Программа проверяет каждый итем в ListBox1 и если начало названия итема и текст в Edit2 не совпадают, то итем удаляется.
Вылетает EStringListError Out of Bounds(3). Строк в ListBox'e 5.

[Flenov]

Ты удаляешь элемент, а значит, после удаление количество элементов уменьшается. НИКОГДА не делай for для циклов, внутри которых есть даление. Делай всегда while:

procedure TForm1.Edit2Change(Sender: TObject);   
var i,cnt:word;   
begin  
 If Edit2.Text<>'' then  
   begin  
     cnt := 0;
     while cnt < ListBox1.Items.Count do
      begin
       If Copy(ListBox1.Items[cnt],1,Length(Edit2.Text))<>Edit2.Text then  
         ListBox1.Items.Delete(cnt);   
        else
          Inc(cnt);//Увеличиваем счетчик только если не удаляли
      end;
   end;   
end;

В твоем случае можно было бы уменьшать cnt после каждого удаление, но лучше while

[Airou]

Спасибо разобрался...урок на будущее).

[Alter]

Запомните, можно и For, главное знать как применять:

procedure TForm1.Edit2Change(Sender: TObject);
var i :word;
begin
 If Edit2.Text<>'' then
 begin
  For i:=ListBox1.Items.Count-1 downto 0 do
  If Copy(ListBox1.Items[i],1,Length(Edit2.Text))<>Edit2.Text then  
   ListBox1.Items.Delete(i);
 end;
end;

Удалять надо с конца, тогда проблем Небудет.

[Flenov]

Циклы через ж... в смысле с заду наперед не всегда возможны по логике. Можно и спереди, если правильно подходить, но чтобы не думать, правильно ты подходишь или нет, лучше while. На мой взгляд, он проще.

[Alter]

Кому как нравится, так и сделает. While не единственный способ .