Warum keine Zwischenergebnisse in Rechnung mit großn Zahlen?

[Die Muhkuh]

Hi,

meinst Du das in Edit24?

Die Sache wird einfach sein, dass das Edit nicht aktualisiert wird. Macht einmal folgendes:

Delphi-Quellcode:

procedure TForm1.Button11Click(Sender: TObject);
var start,ende,zaehler,zahl: Integer;
begin
start:=StrToInt(Edit22.text);
zaehler:=start;
ende:=StrToInt(Edit23.text);
zahl:=0;
   while zaehler<=ende do begin
    zahl:=zahl+zaehler;
    zaehler:=zaehler+1;

    Edit24.Text:=IntToStr(zahl);
    Edit24.Refresh;  // Edit24 neu zeichnen
    Sleep(1000); // eine Sekunde warten, damit ihr auch seht, dass was neues im Edit steht
   end;

ShowMessage('Die Summe beträgt '+IntToStr(zahl)+'!');
end;