Есть два вопроса :)

1. Может я что то не правильно делаю? Но почему то не хочет записываться в Массив:
Объявляю массив:

Code:

var
  IDChar : array [0..500] of String;
  Per : String;
begin
    for I:=0 to Page.Count-1 do
      begin
        If Pos('emberToGroup', Page[i]) <> 0 Then
          begin
            Per := Page[i];
            IDChar[i] := Copy(Per, Pos(',',Per)+2, Length(Per));
            IDChar[i] := Copy(IDChar[i],  0 , Pos(',', IDChar[i])-1);
          end;
      end;
end;

Почему не записывает переменную в IDChar? может я чего-то не догоняю?!

2. Хотел бы спросить как грамотно замутить правильный переход по страницам?
вот есть вконтакте страница поиска:

Code:

http://vkontakte.ru/gsearch.php?section=people&ginv=116997#c[country]=1&c[noiphone]=1&c[section]=people&c[sort]=1

всё как бы нормально, это страница выдаёт первые 20 человек, чтобы получить вторую двадцатку нужно в конце строки поиска дописать:

Code:

http://vkontakte.ru/gsearch.php?section=people&ginv=11699749#c[country]=1&c[noiphone]=1&c[section]=people&c[sort]=1[COLOR=Red][B]&offset=20[/B][/COLOR]

чтобы следующую 20 нужно добавлять:

Code:

[COLOR=Red][B]&offset=40[/B][/COLOR]

Ну и так далее собственно!

так вот вопрос в том, как бы это граматно организовать чтобы собирало до 1000 и конечно же всё в массив записывало

Помогите разобраться...

 

пиши функцию которая запрашивает страницу и возвращает данные в параметре функции передавай offset этот аля get_page_search(offset)
пиши функцию анализа текста и забивания его в массив аля analiz(massiv,data);
делай цикл
for(i=0;i<=1000;i+=20) {
data=get_page_search(i);
analiz(massiv,data);
}

вот такой алгоритм...

 

Да вот уже сижу некоторое время, обдумываю как бы это всё сделать! попробую разобраться.

Не понял правда почему в мой массив не забивалось значение?

 

Может Copy возвращает пустую строку?

 

да нет вроде бы так то пост запросы идут с ID когда без массива работаю, а так че то не хотят =\
попробую по другому как нить)