[Страдалецъ]

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

давай ты на меня, а то я не знаю антиспам пропустил меня или нет 41пять7три-три-ноль99

Добавил в саписок, теперь ты меня к себе добавь, а то невидим буду.

[bulldog]

решил, вопрос закрыт

[Страдалецъ]

Кому эта тема интересна. Финальный код:

Код:

while Pos('view.php?ad=', s) > 0
do begin
   Delete(s, 1, Pos('view.php?ad=', s) + 12);
   EPos := Pos('" target="_blank"', s);
   with ListView1.Items.Add
   do begin
      Caption := System.Copy(s, 1, EPos-1);
      System.Delete(s, 1, EPos+17);
      EPos := Pos('</a>', s);
      SubItems.Add(System.Copy(s, 1, EPos-1));
      end;
   Delete(s, 1, EPos+3);
end