Hallo,
ich habe hier im Forum folgende function gefunden:
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;
Leider funktioniert sie nicht richtig. Denn wenn ich die funktion folgendermassen aufrufe:
withouttags ('[B]das soll übrig bleiben[/B]');
Dann erhalte ich folgendes zurück: das soll übrig bleiben[/B]
Der abschliessende Tag wird also nicht entfernt. Was ist denn an der function falsch?
Danke für die Hilfe!