Как реализовать?

[bakanaev]

Извиняюсь что не дал нормально название теме, не смог придумать )
Проблема, есть набор чисел в ListBox состоящий из 0,1,2.
Надо узнать самый большой размер последовательности состоящей из 1,
пример :

1
1
1
1
1
1
1

Размер последовательности 7.
Вот что я сделал

procedure TForm1.Button3Click(Sender: TObject);
begin
     q:=0;
   ProgressBar1.Max := ListBox1.Items.Count ;
   ProgressBar1.Min := 1;
 
 for i:=0 to listbox1.items.count do
   ProgressBar1.Position:=i;
   if q>0 then
     begin
       q:=q-1;
       continue
     end;

   begin
    if max_w <w  then
    begin
       max_w:=w;

     Label1.Caption:=(IntToStr(max_w));
     Application.ProcessMessages();
    end;
     w:=0;
    
     while (listbox1.items[i+q]='1') do
     begin
     inc(w);
     inc(q);
     end;
end;
end;

Компилируется нормально, но при нажатии кнопки вылетает ошибка "List Index out of bounds"

[Аватар]

for i:=0 to listbox1.items.count-1 do

[Shouldercannon]

Удалено...

[bakanaev]

Сообщение от Аватар

for i:=0 to listbox1.items.count-1 do

Неа, не помогло, та же ошибка

[bakanaev]

Проблема решена, просто не там написал код

   
 if q > 0 then
       begin
         q:=q-1;
         continue
       end;

Надо было так

procedure TForm1.Button3Click(Sender: TObject);
  begin
     q:=0;
     ProgressBar1.Max := ListBox1.Items.Count ;
     ProgressBar1.Min := 1;
 
   for i:=0 to listbox1.items.count do   
      

     begin
         if q >0 then
       begin
         q:=q-1;
         continue
       end;
      if max_w <w  then
          begin
             max_w:=w;

           Label1.Caption:=(IntToStr(max_w));
           Application.ProcessMessages();
          end;
      w:=0;
      ProgressBar1.Position:=i;
       while (listbox1.items[i+q]='1') do
         begin
         inc(w);
         inc(q);
         end;
  end;
end;