Получение адресов всех страниц с сайта

[Alex Cones]

как получить адреса всех страниц в массив

я думал не парся

Мдя...

Поиск чего-л. тексте - это и есть парсинг. как Вы себе представляете поиск ссылок без поиска?

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

Да пожалуйста:

Var
 I, N, N1,N2,N3: Integer; // Счетчики
 St : Array of String; //Массив для ссылок
 S : String; //Исходный код страницы

Begin
S := IdHTTP1.Get('http://yandex.ru'); //Получаем код страницы
I := 0; //Обнуляем счетчик ссылок
While Pos('href="', S)<>0 Do //Пока не закончились ссылки в исходнике...
 Begin //Начинаем...

SetLength(St, I+1);//Увеличиваем вместимость массива ссылок на единицу

   N := Pos('href=', S); //Получаем позицию тега HREF
   Delete(S, 1, N + 5); //Удаляем все ДО него
   N1 := Pos('"', S); //Получаем позицию закрывающей кавычки
   N2 := Pos(' ', S); //Получаем позицию пробела
   N3 := Pos('''', S); //Получаем позицию закрывающей кавычки одинарной
   If (N1<N2) And (N1<N3) And (N1<>0) Then N := N1 Else //Находим то, что закрывает.
   If (N2<N1) And (N2<N3) And (N2<>0) Then N := N2 Else
    N := N3;
   St[i] := Copy(S, 1, N - 1);//Копируем ссылку в массив

Inc(I);//Увеличиваем счетчик ссылок
End;//Конец...
End;//По-любому конец.