Цикл, проблема

[FleXik]

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

[Sibedir]

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

мне нужно чтобы запрос отправлялся до тех пор пока i<sSpinEdit1.Value , но счетчик i отвечает не за то сколько раз отправится запрос а за то сколько спарсится значений, но прикол такой что после каждого обновления запроса - значения меняются поэтому запрос всегда одинаковый и он только один, т.е смысл такой:

Например в sSpinEdit1 указываем число 73, а спарсить например можно максимально 40 значений, т.е нужно отправить 2 раза запрос чтобы спарсить 73 значения, итого задача такая:

Отправили запрос -> Спарсили 40 значений (все парсится регуляркой RegExpr, поэтому нельзя сказать что там будет ровно 40 значений и нужно подстраиваться так чтобы парсило до тех пор пока i<sSpinEdit1.Value) -> Отправляем запрос -> Спарсили последние 33 значения

т.е нужно парсить все значения которые возможно спарсить по заданному шаблону регулярки -> увеличивать счетчик типа integer и снова отправлять запрос пока этот счетчик не будет равен sSpinEdit1.Value

Divide et impera
Ну если я правильно понял:

uses
  Math;

const
  _MaxZaRaz = 40;

...

function Parsim (Count: Integer): Integer;
begin
  // парсим Count значений
  Result := {кол-во реально спарсеных значений};
end;

procedure Main (Count: Integer);
var
  i: Integer;
begin
  i := 0;
  while i < Count do
    i := i + Parsim (Min (_MaxZaRaz, Count - i));
end;

...
...
...

 Main (73);

...

[evg_m]

//Get
existvalue:=regexp.Exec;
while i<spin.Value and existvalue do begin
  inc(i); // уж точно мимо не пройдешь, а если пройдешь мимо то не надо валить все на бедную inc
  existvalue:=regexp.GetNExt;
  if not existvalue then bgein
    //Get;
    existvalue:=regexp.Exec;
  end;
end;

P.S. код не будет компилится из-за синтаксических ошибок (скобки!!!)

[FleXik]

тему офф, проблему решил, шаманы здешние конечно начудили :D