Miuten und Sekunden

[Christian Seehase]

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