Fehler in function zum löschen von Elementen eines Strings

[Brakeman]

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:

Delphi-Quellcode:

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!

[s-off]

Hallo.

Zitat:

Zitat von Brakeman

[...]Was ist denn an der function falsch?

Danke für die Hilfe!

Diese Frage sollte Dir der Debugger beantworten können.

Edit:
Er findet das abschliessende Token '>' nicht, daher wird 'delete' nicht ausgeführt.

Delphi-Quellcode:

While i < length (Zeile) do

Die Position vom letzten '>' ist aber gleich length(Zeile)...

[Brakeman]

Die Funktion an sich verarbeitet den String und liefert auch etwas zurück. Nur möchte ich auch den abschließenden Tag entfernt haben.

Sieht jemand den Fehler?

Sorry, habe deine zweite Antwort nicht gelesen. Habe jetzt

Delphi-Quellcode:

While i <= length (Zeile) do

gesetzt und es funktioniert.

Danke!

[s-off]

Schreibe ich heute in Geheimtinte?

Zitat:

Zitat von Brakeman

Sieht jemand den Fehler?

Ja, ich...

[Brakeman]

Danke für den Tipp. Es funktioniert!