Er wird nicht "verschluckt", sondern wird früher ausgeführt ... Mitten innerhalb eines anderen Ausführungspfades.
Das kommt besonders geil, wenn man globale Variablen benutzt.
0 + 1 = 1
Aber klickt hier mal doppelt
Delphi-Quellcode:
...
private
FCount: Integer;
end;
procedure TFormWendat.Button1Click(Sender: TObject);
var
i: Integer;
begin
FCount := 0;
for i := 1 to 50 do begin
Application.ProcessMessages;
Sleep(100);
end;
FCount := FCount + 1;
Button1.Caption := IntToStr(FCount);
end;