Nedtelling

[trrunde]

Har noen en kode jeg kan bruke for å lage en nedtelling?

[Blib]

www.download.com Søk på counter eller noe lignende

[Fakenicker]

Bruk en Timer komponent og sett intervallet til så mange sekunder/hundredeler du vil det skal gå mellom hvert steg i nedtellingen.

Interval regner i millisekunder, 1000 millisekunder = et sekund. Dette kan være et eksempel på et program som teller ned fra 100 med et sekunds mellomrom.

 

variabelen "i" er definert globalt som integer, siden den skal brukes i FormCreate og Timer1.timer.

 

under FormCreate settes "i" til 100. intervallet på timer1 er satt til 1000.

 

procedure TForm1.Timer1Timer(Sender: TObject);

begin

dec(i);

label1.caption:=IntToStr(i);

end;