[CEPEJJJJJKA]

Вот код:

Код:

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;

Помогите сделать если такой строки не находит то mmo2.text должно быть пустым

[angvelem]

Примерно так:

Код:

  Mmo2.text := '';
  if Pos(...) > 0 then
    Mmo2.text := YouMessage;

[CEPEJJJJJKA]

Если нетрудно можно код полный получить? ну куда это относится?

[angvelem]

Проверь сам.

Код:

  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;

[CEPEJJJJJKA]

YouMessage:=idhttp1.Get ('http://vkontakte.ru/id1');
а где эта строка, Где нужно искать?

[angvelem]

Мдя, кто тогда код писал при таких вопросах?

Код:

  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. Ещё один не обдуманный вопрос и последуют санкции.