Edit-Felder bei jedem Schleifendurchlauf aktualisieren

[johny]

Hallo,

vielleicht kann mir hier jemand weiterhelfen. Ich habe ein Problem mit Schleifen mal zu folgendem Beispiel vereinfacht:

Auf einer Form sind
- ein Button
- zwei Edit-Felder
- ein GaugeBar

Klickt man auf den Button, werden die Schleifen ausgeführt und in den Edit-Felder sollen die Variablen iCount1 und iCount2 angezeigt werden.
Desweiteren wird der Wert der while-Schleife noch durch ein GaugeBar angezeigt.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
 iCount1 : integer; // Counter für die for-Schleife
 iCount2 : integer; // Counter für die while-Schleife
begin
 iCount2 := 0;
 for iCount1 := 0 to 10 do
 begin
 Edit2.Text := IntToStr(iCount1); // Zahl der for-Schleife in Edit2 anzeigen
  while iCount2 < 5 do
  begin
   Edit1.Text := IntToStr(iCount2); // Zahl der while-Schleife in Edit1 anzeigen
   Gauge1.Progress := iCount2; // Gleichzeitig durch Gauge visualisieren
   iCount2 := iCount2+1; // Counter erhöhen
   sleep(250); // Warten, so dass man auch was sieht ;)
  end;
 end;
end;

Der GaugeBar wird bei jedem Schleifendurchlauf aktualisiert, so dass der Balken richtig angezeigt wird, sich also ständig erhöht. Die Einträge der Edit -Felder werden aber erst dann angezeigt, wenn alle Schleifen fertig durchlaufen sind, so dass zum Zeitpunkt des Durchlaufs nichts angezeigt wird, dann erscheint die letzte Zahl.

Ist es möglich, die aktuellen Werte der Edit-Felder sofort anzuzeigen, so dass in diesen hochgezählt wird?