Переменной присваиваешь текст.
Ищешь тег <tag>(Pos('<tag>', S))
Ищешь тег </tag>(Pos('</tag>', S))
С позиции после <tag> до позиции </tag> копируешь в переменную/список (Copy(S, x, y))
Удаляешь всё перед </tag>, включая и его тоже, чтобы не попался при следующем поиске (Delete(S, 1, P))
И заново, т.е. цикл.
UPD
Или тебе нужно записать все встречающиеся теги?
|