Tag!
Würde gerne den Fortschritt einer HTML_Source-Formatierung mit einer ProgressBar
anzeigen, krieg´s aber nicht hin.....

zusammenfalten · markieren

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;
    Delete(S, TagBegin, TagLength);
    TagBegin:= Pos( '<', S);
  end;

  Result := S;
end;

Funktion entfernt HTML-Tags aus dem SC.Aber wie die ProgressBar einbinden????
Danke+Gruss Loki!

nimm die geasamtanzahl an zeichen, mach das als maxpos dann nimmst du als Position der Progressbar immer das Pos('<',s)

Funzt!Danke!
Hab aber die Zeilen-Anzahl genommen, macht die Prozedur kürzer....