Циклы, проблема, получаю ошибку "list index out of bounds (0)"

[FleXik]

Циклы, проблема, получаю ошибку "list index out of bounds (0)"

var
   i, j, m:integer;
   fList, sList:TStringList.Create;
   RegExp:TRegExpr;
begin
   i:=0;
   fList:=TStringList.Create;
   sList:=TStringList.Create;
   RegExp:=TRegExpr.Create;
   fList.LoadFromFile(Form1.sFileNameEdit1.FileName);
   sList.LoadFromFile(Form1.sFileNameEdit2.FileName);

      while (i<fList.Count) and (Work=True) do
      begin
         m:=0; // тут он должно стоять т.к нужно обнулять счетчик когда берется следующая строка из листа fList
         
            while (m<Form1.sSpinEdit1.Value) and (Work=True) do
            begin
               j:=0;
   
                  while (True) and (Work=True) do // этот цикл сомнительный т.к не знал как по-другому в принципе это дело реализовать, но главное что так работает..
                  begin
                     IdHTTP1.GET('http://сайт.ru/go.php?prm='+fList[i]+'&prm2='+sList[m]+'&prm3='+IntToStr(j));

                        if RegExp.Exec(IdHTTP1) and (Work=True) then
                        begin
                        
                           repeat
                           //парсинг, тут все норм
                           until not RegExp.ExecNext;

                        end
                        else
                        Break;
                  
                     j:=j+5;       
                  end;
            
               inc(m);
            end;

         inc(i);
      end;

   fList.Free;
   sList.Free;
   RegExpr.Free;
end;

Прикол в том что я не могу прописать в начале цикла while (i<fList.Count) and (Work=True) do - m:=0; а это надо сделать чтобы сбить цикл иначе второй цикл, а именно while (m<Form1.sSpinEdit1.Value) and (Work=True) do выполняется только 1 раз а мне надо чтобы этот второй цикл выполнялся до тех пор пока работает цикл while (i<fList.Count) and (Work=True) do и естественно пока в листе который используется в этом цикле есть данные для обработки.

[Человек_Борща]

И для чего здесь while? Разве у вас объект неизвестной длинны?

[FleXik]

И для чего здесь while? Разве у вас объект неизвестной длинны?

1. функция inc увеличивает переменную integer только на 1 значение у меня же j:=j+5; поэтому тут только цикл while, при цикле for счетчик увеличивается на 1 значение и автоматически.
2. не умею использовать цикл for так чтобы в нем было добавлено (Work=True), for i:=0 to (fList.Count-1) and (Work=True) не работает.
3. привычка, почти во всех случаях именно цикл while и использую.

[northener]

list index out of bounds (0) говорит о том, что какой-то из списков просто пустой.
Что выглядит странно ибо оба они загружаются из файлов.

[FleXik]

list index out of bounds (0) говорит о том, что какой-то из списков просто пустой.
Что выглядит странно ибо оба они загружаются из файлов.

вот-вот, я о том же, если убрать часть кода внутри цикла while (m<Form1.sSpinEdit1.Value) и m:=0; прописать в начале цикла while (i<fList.Count) and (Work=True) do - ошибка эта не выскакивает, поэтому грешу на цикл while (True) and (Work=True) do но не могу понять где проблема

[FleXik]

Еще момент, код в 1 посте с нуля писал (но он такой же как у меня без некоторых кусков в которых 100% нет ошибок)

sList наполняется спаршенными данными, но, он не пустой 1000000% (так что с Form1.sFileNameEdit2.FileName) я немного перегнул но тем не менее...

[northener]

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

вот-вот, я о том же, если убрать часть кода...

А я не о том же. Ты проверял что после

   fList.LoadFromFile(Form1.sFileNameEdit1.FileName);
   sList.LoadFromFile(Form1.sFileNameEdit2.FileName);

оба списка не пустые?
И не надо говорить про 1000000%. Надо просто проверить.

[FleXik]

оба списка не пустые?
И не надо говорить про 1000000%. Надо просто проверить.

они не пустые, я в этом уже собаку сьел, вот если у меня с ListView проблемы первое время были потому что я с ним не работал никогда то тут я уверен на все 100%

всем спасибо за ответы в теме, благодаря вам, я, методом удаления частей кода по-очереди нашел в чем ошибка, у меня 2 разных шаблона RegExpr, первый шаблон регулярки в начале кода сразу после begin у Execute потока, а второй шаблон регулярки я засунул в цикл while (m<Form1.sSpinEdit1.Value) and (Ends=True) do из-за этого и получал эту ошибку, "закомментил" этот шаблон регулярки и все стало нормально работать и перестало ругаться.

[FleXik]

Фиг там, не перестало ругаться)) но проблема 100000% в шаблоне регулярки, уже перепроверил 5 раз.

RegExp.Expression:='откуда парсим(.*?)докуда парсим';

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

если делаю так (ниже 2 варианта, в обеих вариантах ругается на list index out ....)

    while (i<fList.Count) and (Work=True) do
    begin
      m:=0;
      sList.Clear;

        if Form1.sSpinEdit1.Value>0 then
        begin
          IdHTTP1.Get('http://сайт.ru');

            if RegExp.Exec(IdHTTP1) then
            repeat
              sList.Add(RegExp.Match[1]);
            until
              not RegExp.ExecNext;

        end;

      RegExp.Expression:='откуда парсим(.*?)докуда парсим'; // регулярка правильная.

        while (m<Form1.sSpinEdit1.Value) and (Work=True) do
        begin
          j:=0;

            while (True) and (Work=True) do
            begin
              // запрос, бла-бла-бла

    while (i<fList.Count) and (Work=True) do
    begin
      m:=0;
      sList.Clear;

        if Form1.sSpinEdit1.Value>0 then
        begin
          IdHTTP1.Get('http://сайт.ru');

            if RegExp.Exec(IdHTTP1) then
            repeat
              sList.Add(RegExp.Match[1]);
            until
              not RegExp.ExecNext;

        end;

        while (m<Form1.sSpinEdit1.Value) and (Work=True) do
        begin
          j:=0;
          RegExp.Expression:='откуда парсим(.*?)докуда парсим'; // регулярка правильная.

            while (True) and (Work=True) do
            begin
              // запрос, бла-бла-бла

[northener]

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

они не пустые, я в этом уже собаку сьел, вот если у меня с ListView проблемы первое время были потому что я с ним не работал никогда то тут я уверен на все 100%

всем спасибо за ответы в теме, благодаря вам, я, методом удаления частей кода по-очереди нашел в чем ошибка, у меня 2 разных шаблона RegExpr, первый шаблон регулярки в начале кода сразу после begin у Execute потока, а второй шаблон регулярки я засунул в цикл while (m<Form1.sSpinEdit1.Value) and (Ends=True) do из-за этого и получал эту ошибку, "закомментил" этот шаблон регулярки и все стало нормально работать и перестало ругаться.

Значит ты пудрил нам мозги либо самой ошибкой, либо приведённым кодом, который явно был другим, чем тот который давал эту ошибку.