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

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

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

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

[bulldog]

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

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

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

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