Einzelnen Beitrag anzeigen

Benutzerbild von Loki77
Loki77

Registriert seit: 21. Feb 2006
Ort: Trier
132 Beiträge
 
Delphi XE2 Enterprise
 
#1

[erledigt]Verständnis-Frage "String zerhackstückeln&quo

  Alt 3. Mär 2006, 09:12
`Morgen!
Lösche Tags aus HTML-SC. Aber zum verständnis:

Delphi-Quellcode:
function StripHTML(S: string): string;
var
  TagBegin, TagEnd, TagLength : integer;
begin
  TagBegin := Pos( '<', S);
  while (TagBegin > 0) do begin
    TagEnd := Pos('>', S);
    TagLength := TagEnd - TagBegin + 1; // <--- WARUM ... - TagBegin + 1 ???
    Delete(S, TagBegin, TagLength);
    TagBegin:= Pos( '<', S);
end;
  Result := S;
end;
Hab´mir gerade zwar die unteschiede string(C/C++) und strin(Delphi) angeschaut,
seh´den Wald vor lauter Bäumen aber nicht mehr.....
Danke, Loki
"What I cannot create, I do not understand."
-Richard P. Feynman
  Mit Zitat antworten Zitat