HTML Tags aus String entfernen

[Sascha_OW]

so habe das jetzt anders gelöst habe die fertige function:

Delphi-Quellcode:

function withouttags (Zeile: string): string;
var i,anfang, ende: integer;
begin
    tag_gefunden := true;
    For i := 1 to length(zeile) do begin
        If zeile[i] = '<' then anfang := i;
        If zeile[i] = '>' then begin
           ende := i;
           delete (Zeile,1 , ende);
        end;
    end;
    result := zeile;
end;

EDIT:

Delphi-Quellcode:

function withouttags (Zeile: string): string;
var i,anfang, ende: integer;
begin
    i := 0;
    While i < length (zeile) do begin
        If zeile[i] = '<' then anfang := i;
        If zeile[i] = '>' then begin
           ende := i;
           delete (Zeile,anfang , ende );
           i := 1;
        end else inc(i);

    end;
    result := zeile;
end;

die 2. ist besser