Как составить цикл (for) чтобы цикл работал пока RegExp.Match не будет пустым?

[FleXik]

Как составить цикл (for) чтобы цикл работал пока RegExp.Match (или RegExp.ExecNext) не будет пустым?

[Аватар]

WHILE или REPEAT запрещены?

[Кольша]

if RegExp.Exec then
repeat

until not RegExp.ExecNext;

[FleXik]

Аватар, Кольша, это я все знаю но мне нужно другое...

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

[Пепел Феникса]

и что в циклах while нельзя увеличивать переменную?
это вам не С.

[Luuzuk]

var counter: integer;
.......
counter = 0;
if RegExp.Exec then
repeat
...

inc(counter);
until not RegExp.ExecNext;

не?

[FleXik]

Пепел Феникса, оно то можно, только запросы будут отправляться постоянно, а мне нужно только до тех пор пока есть данные которые надо парсить.

[Кольша]

Кажется Вы создавали тему уже по этому поводу, и все переросло в жуткий холивар

i:=0;
r.inputstring:=http.get(....+i);
while r.exec do
begin
repeat

until not r.execnext;
inc(i);
r.inputstring:=http.get(....+i);
end;

[FleXik]

var counter: integer;
.......
counter = 0;
if RegExp.Exec then
repeat
...

inc(counter);
until not RegExp.ExecNext;

да оно-то по сути так и должно быть, вот только мне нужен именно цикл while или for заюзать, но я хз как правильно его составить.. внутри этого цикла и будет запрос и все остальное, т.е получится что-то типа этого должно:

var
k:integer;
begin
IdHTTP1.Get('http://site.ru/q='+IntToStr(k));
for k:=0 to 'тут и надо прописать чтобы парсило пока есть данные по шаблону' do
begin
if RegExp.Exec() then
repeat
...
until not RegExp.ExecNext;
k:=k+10;
end;

вот так я это вижу (могут быть ошибки, писал вручную)...

----------------------------

Кольша, создавал подобную но там другое вообще и без использования регулярок..

[Кольша]

Но суть была та же, если мне не изменяет память.