Tags aus HTML-Code entfernen

[SirThornberry]

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;