Bierschaumzerfall

[freak4fun]

Ich habe mal ein wenig gespielt:

Delphi-Quellcode:

...
 private
  Ende: Boolean;
...

procedure TForm2.Button1Click(Sender: TObject);
var
  BierSchaum: double;
  i: Integer;
begin
  Ende := False;
  BierSchaum := 100;

  for i := 0 to 300 do
  begin
    BierSchaum := BierSchaum - 0.2;
    Edit1.Text := Format('Sekunden: %2d Stand: %2.2f', [i, BierSchaum]);
    Application.ProcessMessages;
    if Ende then
    begin
      break;
    end;
    sleep(1000);
  end;

end;

procedure TForm2.Button2Click(Sender: TObject);
begin
  Ende := True;
end;