Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
countdown:=StrToInt(Label1.Caption);
if countdown > 0
then
begin
dec (countdown);
Label1.Caption:=IntToStr(Countdown);
end;
if countdown=0
then
begin
CPStotal:=CPStotal+CPS;
//CPS= Anstieg in der Sekunde (0,2;0,4;..)
Label1.Caption:='
1';
//CPStotal= Aufsummierter Wert
end;
end;
CPStotal hat den startwert von 0 und jede sekunde wird ja 0,2 dazugerechnet. Die Ausgabe habe ich momentan in einem anderen Timer eingebaut, kann ich den Countdown/Wiederholung des anderen Timers irgendwie auf 0,01 Sek. setzen?