Moin Michael,
erst mal sehen, ob ich das richtig verstanden habe:
Du hast eine Variable die mit dem Wert 80 initialisiert wird, und das sollen Sekunden darstellen.
Diese Variable wird in einem Timer jede Sekunde um 1 verringert.
Bei mir sähe das so aus:
Delphi-Quellcode:
var
bZeit : byte = 80;
implementation
procedure TfrmMAIN.Timer1Timer(Sender: TObject);
begin
Edit1.Text := Format('
%d:%d',[bZeit
div 60,bZeit
mod 60]);
dec(bZeit);
// Wenn die Zeit kleiner 0 ist, den Timer abschalten
Timer1.Enabled := bZeit < 0;
end;
a div b gibt den ganzzahligen Anteil von a/b zurück.
a mod b gibt den Rest von a/b zurück