Progress Form/Dialog VCL

[Delphi.Narium]

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;