Hi,
ich würde gern einen Countdown von 9,9s zu null machen, wenn er bei null angelangt ist, soll er wieder bei 9,9 beginnen.
Das ganze soll eine unedlichkeitsschleife werden.
Mein Code geht nur nicht, denn er geht ins minus statt von 9,9 zu beginnen:
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if timetoharvest <> 0.0 then
begin
timetoharvest := timetoharvest - 0.1;
Label5.Caption := floattostrf(timetoharvest,ffnumber,8,1)+' s';
end
else
timetoharvest := 9.9;
end;