Frage zur for-Schleife

[Günter Dahlke]

Warum wird beim folgenden Quelltext nur 500000 ausgegeben und nicht die Zwischenwerte.

<PRE>
procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
begin
for i:=1 to 500000 do
Label1.Caption := IntToStr(i);
end;

end.

</PRE>

Vielen Dank für eine Antwort

[Torsten Faltinat]

Hallo,

weil die Komponente nicht so schnell neu gezeichnet wird. Damit jeder Wert erscheint solltest Du den Quelltext wie folgt abändern:

procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
begin
for i:=1 to 500000 do
begin
Label1.Caption := IntToStr(i);
Application.ProcessMessages;
end;
end;

Grüße

Torste

[Günter Dahlke]

Vielen Dank, damit bin ich außerhalb dieses
Beispieles weitergekommen.

Gruß Günte