Как убрать ненужное?

[cargo29]

мне надо осуществить следующее,

Для вас этот день будет не слишком многообещающим: и в профессиональной, и в личной жизни серьезные перемены маловероятны, да и на неожиданное везение не стоит рассчитывать. Упорным трудом можно кое-чего добиться, но лишь в том случае, если вы будете очень внимательны, аккуратны и наблюдательны.
 Стоит задуматься о своих отношениях с окружающими: вы склонны вести себя вызывающе, капризничать, провоцировать конфликты. Стоит выбрать более «взрослую» линию поведения, чтобы избавить себя и других от неприятных переживаний.

в тексте часто бывает кодировка HTML как ее можно убрать? (бывает разная)

[ArtGrek]

Как убрать ненужное из текста?

на сколько разным? может у него есть теги? приметы какие нибудь?

[cargo29]

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

Как убрать ненужное из текста?

на сколько разным? может у него есть теги? приметы какие нибудь?

«взрослую»
</p>
<p>
Там понимаешь как идет

ТЕКСТ1
</p>
<p>
Текст2


у вот удалить бы как нить
</p>
<p> (при том они вот именно так стоят)

[ArtGrek]

зделаи проверку если нашел '<' то до следуюшего '>' текст не считываи
или находи '<' и удаляи до следуюшего '>'

[cargo29]

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

зделаи проверку если нашел '<' то до следуюшего '>' текст не считываи
или находи '<' и удаляи до следуюшего '>'

я так и сделал но в тексте как убрать? например это &laquo;взрослую&raquo;
где то видел код замена текста в мемо у тебя нету?

[ArtGrek]

delete(myText, Pos('&laquo', myText), Length('&laquo'));

[cargo29]

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

delete(myText, Pos('&laquo', myText), Length('&laquo'));

точно точно спасибо, но это я же удалю 1 &laquo но Pos же не дойдет до 2 как тогда ?поступить?

[ArtGrek]

mdaaa )

  while not Eof(myText) do
  begin
    if Pos('&laquo', myText)<>0 then delete(myText, Pos('&laquo', myText), Length('&laquo'));
  end;

ok?

[cargo29]

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

mdaaa )

  while not Eof(myText) do
  begin
    if Pos('&laquo', myText)<>0 then delete(myText, Pos('&laquo', myText), Length('&laquo'));
  end;

ok?

ага спасибо =)

[cargo29]

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

mdaaa )

  while not Eof(myText) do
  begin
    if Pos('&laquo', myText)<>0 then delete(myText, Pos('&laquo', myText), Length('&laquo'));
  end;

ok?

что то понять не могу что это Eof(myText) Pos?? или что? я с циклами плохо