Fortschritt einer for-Schleife anzeigen

[herklotz]

Moin moin,

also ich stehe vor folgendem Problem:

Ich habe ein for-Schleife, die bis zu einem hohen Wert zählt, da dies ein Weilchen dauert, wollte ich eine ProgressBar mit dem Fortschritt einfügen, aber wenn ich

Delphi-Quellcode:

for i:=1 to 5000 do begin
  ...
  ProgressBar1.Position := i;
end;

drinstehen habe, bleibt das Fenster natürlich leer und nichts wird angezeigt.
Wie krieg ich jetzt diese Progressbar zum Vorschein, sodass der User sehen kann wo gerade die for-Schleife ist?

[Luckie]

Du musst der deinem Fenster entweder die Möglichkeit gegeben die Fortschrittsanzeige zu zeichnen, in dem du dem fenster die Möglichkeit gibst die Nachrichtenschleife abzarbeiten. das geht mit Application.Processmessages. Oder du sagts der Fortschrittsanzeige explizit, dass sie sich neu zeichnen soll mit der Metgode Refresh oder Repaint der Fortschrittsanzeige.

[herklotz]

Wie stell ich das jetzt genau an. Bin noch nich sooooo weit mit Delphi.

ProcessBar1.Position := i;
ProcessBar1.Refresh;

oder wie?

[Luckie]

Zitat von herklotz:

Wie stell ich das jetzt genau an. Bin noch nich sooooo weit mit Delphi.

ProcessBar1.Position := i;
ProcessBar1.Refresh;

oder wie?

Was spricht dagegen, das auszuprobieren?

[herklotz]

Also ich hab es jetzt so ausprobiert:

Delphi-Quellcode:

for i:=1 to 10000 do begin
  ...
  ProgressBar1.Position := i;
  ProgressBar1.Refresh;
end;

und irgendwie funktioniert es nicht wirklich. Also immer noch dasselbe wie vorher.

[ATSV]

wie wäre vor der for-schleife ein Progressbar.Max := 10000? oder steht das schon drin?

[herklotz]

Ja ProgressBar1.Max ist schon drin.

[ATSV]

komisch...

Delphi-Quellcode:

pb1.Position := pb1.Position + 1;
Application.ProcessMessages;

so mach ich das (momentan) in meinem aktuellen projekt funktioniert einwandfrei versuch das mal.

[herklotz]

Ich bin auch blöd
Ich hab die ProgressBar auf einem Panel, welches ich aus Versehen auf eine GroupBox geschoben habe, die gerade nicht sichtbar war ^^
Naja, vielen Dank es funktioniert jetzt

[Xong]

Eventuell könnte es noch sinnvoll sein, den Balken nur alle 50-100 Schritte neu zu zeichnen.

LG,
Xong