Регулярка RegExpr, ошибка: "No Input String Specified"

[FleXik]

  i:=0;
  RegExp:=TRegExpr.Create;
  RegExp.Expression:='<div>(.*?)</div>';

    while (RegExp.Exec) do // тут получаю ошибку "No Input String Specified"
    begin
      IdHTTP1.Get('http://сайт.ru/parmatr='+IntToStr(i));

        if RegExp.Exec(IdHTTP1...блаблабла) then
        repeat
          Form1.sRichEdit1.Lines.Add(RegExp.Match[1]);
        until not RegExp.ExecNext;

      i:=i+10;
    end;

Вобщем задача следующая:
Отправляем запрос -> парсим 10 значений -> спарсили -> увеличиваем переменную i на 10 и так по кругу до тех пор пока не кончатся данные для парсинга на сайте...

[Serge_Bliznykov]

ну так он же не знает, какую Вы строку собрались парсить!

function Exec (const AInputString : string) : boolean;

Выполнить выражение применительно к входной строке AInputString

!!! также, запоминает AInputString в ствойстве InputString

For Delphi 5 and higher available overloaded versions:

function Exec : boolean;
without parameter (uses already assigned to InputString property value)

из доки на TRegExpr ...

[FleXik]

Serge_Bliznykov, меня интересует конкретный ответ, я и так весь код дал...

[Serge_Bliznykov]

странно.
я думал, что ответ очевиден

while (RegExp.Exec) do - выполнять, пока поиск регулярного выражения в исходной строке выполнился успешно (ну, что-то нашлось..)

выражение для поиска вы задали:
RegExp.Expression:='<div>(.*?)</div>';

а где оно будет искать, в какой строке? Строки то НЕТ!!
вот компонент и ругается.


p.s. это что касается ошибки.
Что же касается того, как её исправить - то тут я Вам не помогу, я ваш код поиска не понимаю, извините...

[FleXik]

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


P.S это весь код и я понимаю что выбивает ошибку из-за того что негде искать, но, мне нужны советы как это можно реализовать по-другому...

[Serge_Bliznykov]

так, что ли?

i:=0;
  RegExp:=TRegExpr.Create;
  RegExp.Expression:='<div>(.*?)</div>';

    while (True) do 
    begin
        IdHTTP1.Get('http://сайт.ru/parmatr='+IntToStr(i));

        if RegExp.Exec(IdHTTP1...блаблабла) then
          repeat
            Form1.sRichEdit1.Lines.Add(RegExp.Match[1]);
          until not RegExp.ExecNext
        else 
            Break;

      i:=i+10;
    end;

[eval]

мне нужны советы как это можно реализовать по-другому

совет 1: прочитать справку по используемым средствам
если не помогло совет 2: нанять программиста

[FleXik]

Serge_Bliznykov, даааа))) идеально вообще, спс большое