Countdown

[Die Muhkuh]

Hmm,

Delphi-Quellcode:

// Deins: 
// TimeToHarvester: Double; // Oder ähnlich

// Meins
  TimeToHarvester: Integer;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if timetoharvest >= 0 then
begin
timetoharvest := timetoharvest - 1;
Label5.Caption := floattostrf(timetoharvest / 10,ffnumber,8,1)+' s'; 
end
else
timetoharvest := 99;
end;

o.Ä.