2 Edit Komponenten
- ins erste Edit 10 reinschreiben
- ins zweite 0 reinschreiben
1 Timer Komponente
- Interval auf 1000
- Active := True
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
var
h,m : integer;
begin
h := strtoint(Edit1.Text);
m := strtoint(Edit2.Text);
if m = 0
then
begin
dec(h);
if (h < 0)
and (m = 0)
then
begin
Timer1.Enabled := false;
ShowMEssage('
Ende');
end;
m := 60;
end;
dec(m);
Edit1.Text := inttostr(h);
Edit2.Text := inttostr(m);
end;
Code müsste stimmen, überprüft das aber lieber nochmal!