Wie änderst Du die Progressbar?
Mal ein Beispiel (schemahaft):
Delphi-Quellcode:
begin
Stringliste.LoadFromFile('irgendeine.datei');
Progressbar.Min := 0;
Progressbar.Position := 0;
Progressbar.Max := Stringliste.Count;
for i := 0 to Stringliste.Count - 1 do begin
FunktionDieDieZeileIndDiDatenbankBringt(Stringliste[i]);
if i Mod 100 = 0 then // statt der 100 was Größeres oder Kleineres nehmen, jenachdem, wie schnell das Ganze ist ...
Progressbar.Position := i;
Application.ProcessMessages;
end;
end;
end;