Zu gleichem hab ich gestern auch ne Funktion geschrieben. Du musst einfach nur prüfen ob ">" auch nach "<" kommt und nicht vorher
Hier der source (der auf jeden Fall verbesserungswürdig ist)
Delphi-Quellcode:
function TForm1.fRemoveTags(AText: String): String;
var LStart, LEnd: Integer;
begin
LStart := pos('<', AText);
LEnd := 0;
if LStart > 0 then
begin
LStart := LStart + 1;
LEnd := PosEx('>', AText, LStart);
end;
while (LStart > 0) and (LEnd > LStart) do
begin
AText := copy(AText, 1, LStart - 2) + copy(AText, LEnd + 1, length(AText));
LStart := pos('<', AText);
if LStart > 0 then
begin
LStart := LStart + 1;
LEnd := PosEx('>', AText, LStart);
end;
end;
result := AText;
end;