Countdown erstellen

[Helmi]

Zitat von alleinherrscher:

Hi, am einfachsten geht das mit nem timer, wobei du z.B. eine Anzahl an Sekunden als Startparameter eingibst

FCountdown:=250;


und damm im timer die Zeit runterzählst und in einem Label darstellst:

Delphi-Quellcode:

TForm1.OnTimer1(Sender:TObject);
begin

FCountdown:=FCountdown-1;
label1.caption:='Noch '+inttostr(FCountdown)+' sekunden!';

if FCountdown:=0 then
  Timer1.enabled:=False;


end;

Grüße

Da ist ein Fehler drin:

Delphi-Quellcode:

TForm1.OnTimer1(Sender:TObject); 
begin 

FCountdown:=FCountdown-1; //könnte man auch als dec(FCountdown) schreiben

label1.caption:='Noch '+inttostr(FCountdown)+' sekunden!'; 

if FCountdown = 0 then //<== Abfrage, keine Zuweisung
  Timer1.enabled:=False; 


end;