Парсинг

[Pearl777]

Здравствуйте! У меня есть код для парсинга.

procedure TForm1.Button1(Sender: TObject);
var
str1, str2, str3, str4: String;
pars: string;
begin
pars:= idhttp.get('http://site.ru/user/page1');
while pos('{"gid":', pars)<>0 do
begin
str1 := (pars);
str2 := '{"gid":';
str3:= Copy(str1, Pos(str2, str1) + 7, Length(str1));
pars:= Copy(str1, Pos(str2, str1) + 7, Length(str1));
str4 := ',"name":"';
Memo2.Lines.Add(Copy(str3, 0, Pos(str4, str3) - 1));
end ;
end;

Как сделать так, чтобы после того как спарсится первая страница автоматически переходило на вторую (http://site.ru/user/page2)?

[BDA]

Что-то типа:

for i:=1 to 2 do
begin
pars:= idhttp.get('http://site.ru/user/page' + inttostr(i));
//код парсинга
end;

[eval]

парсить паралельно надо

[BDA]

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

парсить паралельно надо

В принципе согласен, но в данном случае не стоит
Время парсинга НЕСОИЗМЕРИМО меньше времени получения страницы, а разработка параллельного алгоритма (описание класса-потока и так далее) может занять больше времени, чем стоимость данных.

UPD
Пожалуйста

[Pearl777]

BDA, Спасибо большое!

[bakanaev]

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

парсить паралельно надо

Т.е?
Набранное вами сообщение слишком короткое. Увеличьте ваше сообщение до 10 символов.

[eval]

чего т.е.? параллельно не знаете что такое? в несколько потоков

[ingushmen]

var
str1, str2, str3, str4: String;
pars: string;
begin
pars:= idhttp.get('http://site.ru/user/page1');
while pos('{"gid":', pars)<>0 do
begin
str1 := (pars);
str2 := '{"gid":';
str3:= Copy(str1, Pos(str2, str1) + 7, Length(str1));
pars:= Copy(str1, Pos(str2, str1) + 7, Length(str1));
str4 := ',"name":"';
IdHTTP1.Get(Copy(str3, 0, Pos(str4, str3) - 1));
end ;