Keinen HTML-Code!

[Luckie]

Beim ir hat das ganz gut funktioniert:

Delphi-Quellcode:

function striptags(value: string): string;
var
  i: integer;
  s: string;
begin
  i := 1;
  s := '';
  while i <= length(value) do
  begin
    if value[i] = '<' then
      repeat
        if bCancel then
          exit;
        inc(i);
        Application.ProcessMessages;
      until (value[i] = '>')
    else
      s := s + value[i];
    inc(i);
  end;
  result := s;
end;