|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#31
|
||||
|
||||
Цитата:
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#32
|
|||
|
|||
решил, вопрос закрыт
|
#33
|
||||
|
||||
Кому эта тема интересна. Финальный код:
Код:
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 Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |