Wenn du Code parsen musst, dann ist dir sicherlich die Anzahl Zeilen bekannt. Du kannst dann folgendes machen.
Beim Start des Parsers:
Delphi-Quellcode:
ProgressBar1.Min := 0;
ProgressBar1.Max := AnzahlZeilen;
ProgressBar1.Position := 0;
Während dem Parsen brauchst du dann nur nach jeder Zeile ProgressBar1.Position um 1 erhöhen.
Greetz
alcaeus