Countdown

[sgmeiner]

Einfachste Lösung scheint mir die zu sein:

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;

Einen Vergleich mit Floats durchzuführen wird auf selten gelingen, da die intern nie exakt 0.0 sein werden sondern für die CPU immer was krummes wie 0.000000000521 dargstellen.