ProgressBar einbinden

[Loki77]

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

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!

[Angel4585]

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

[Loki77]

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