Данная функция обрабатывает отлично текст но к примеру: Если нужно удалить текст между тегами t1 и тут текст /t1 то работает нормально.
А вот если нужно удалить текст между тегами t1 и тут текст t1 (то есть между одинаковыми тегами) то удаляет только теги t1 а все что между ними оставляет. Как можно это исправить ?
function test(s,mask1,mask2:string):string;
var p1,p2:Word;
begin
repeat
p1:=Pos(mask1,s);
p2:=Pos(mask2,s);
Delete(s,p1,p2-p1+length(mask2));
until (p1=0)or(p2=0);
Result:=s;
end;