|
#1
|
|||
|
|||
Занос в Memo
Вот код:
Код:
YouMessage:=idhttp1.Get ('http://vkontakte.ru/id1'); Delete(YouMessage,1,pos('<span class="online">',YouMessage)+length('<span class="online">')-1); Delete(YouMessage,pos('</span>',YouMessage),length(YouMessage )); Mmo2.text:=YouMessage; end; |
#2
|
||||
|
||||
Примерно так:
Код:
Mmo2.text := ''; if Pos(...) > 0 then Mmo2.text := YouMessage; Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#3
|
|||
|
|||
Если нетрудно можно код полный получить? ну куда это относится?
|
#4
|
||||
|
||||
Проверь сам.
Код:
Mmo2.text := ''; if (pos('<span class="online">', YouMessage) > 0) and (pos('</span>', YouMessage) > 0) then begin YouMessage := StringReplace(YouMessage, '<span class="online">', '', [rfReplaceAll]); YouMessage := StringReplace(YouMessage, '</span>', '', [rfReplaceAll]); Mmo2.text := YouMessage; end; Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#5
|
|||
|
|||
YouMessage:=idhttp1.Get ('http://vkontakte.ru/id1');
а где эта строка, Где нужно искать? |
#6
|
||||
|
||||
Мдя, кто тогда код писал при таких вопросах?
Код:
YouMessage:=idhttp1.Get ('http://vkontakte.ru/id1'); Mmo2.text := ''; if (pos('<span class="online">', YouMessage) > 0) and (pos('</span>', YouMessage) > 0) then begin YouMessage := StringReplace(YouMessage, '<span class="online">', '', [rfReplaceAll]); YouMessage := StringReplace(YouMessage, '</span>', '', [rfReplaceAll]); Mmo2.text := YouMessage; end; P.S. Ещё один не обдуманный вопрос и последуют санкции. Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#7
|
|||
|
|||
Цитата:
|
#8
|
|||
|
|||
Всё решил проблему другим способом.
Тема не актуальна... ЗЫ: angvelem спасибо за помощь... Последний раз редактировалось CEPEJJJJJKA, 11.12.2011 в 13:56. |
#9
|
||||
|
||||
Цитата:
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |