Memo:поиск тегов

[sanya920]

Имеется memo, в котором много различного текста. Нужно найти и вырезать текст который начинается и <Teg> и заканчивается </Teg>, притом, что если таких тегов несколько, нужно выбрать последний результат. Не подскажете?

[Stilet]

Подскажем:

 s:=Memo.Lines.text;
 i:=pos('<Teg>',s);
 while i<>0 do begin
  k:=pos('</Teg>',s);
  res:=copy(s,i+4,k-i);
  delete(s,i,k+5-i);
  i:=pos('<Teg>',s);
 end;
 Memo.Lines.text:=s;

Где s,res - строка i,k - целые
res - последний контент.

Проблема может возникнуть в случае если теги вложены друг в друга.