Poker Blinds Timer

[ralfiii]

Hui, Dir fehlt da aber einiges.

So als Anstoss:

Kein Mensch hat Blind-Runden die eine Stunde dauern. Und dann:

Code:

  = class(TForm);
  private
    Rundendauer : integer;
    TimeRemaining : integer;
  ...
  end;

procedure xyz.StartButClick(Sender);
begin
  Rundendauer:=  ... SpinEdit.Value oder StrToInt(ZeitEdit.Text);
  TimeRemaining:=Rundendauer;
  Timer1.Enabled:=True;
end;

procedure xyz.Timer1Timer(Sender);
begin
  Dec(TimeRemaining);
  if TimeRemaining<=3 then
     Beep;
  if TimeRemaining=0 then
  begin
    Blind:=Blind*2;
    BlindLabel:=IntToStr(Blind);
    TimeRemaining:=Rundendauer;
  end;
  lblTimeRemaining.Caption:=IntToStr(TimeRemaining div 60)+' : '+IntToStr(TimeRemaining mod 60);
end;

so in etwa