Countdown

[Simon Jäger]

kann mir irgendjemand diesen code hier:

procedure TForm1.Timer1Timer(Sender: TObject);
var
SSekunden, SMinuten, SStunden: string;
begin
if not (sender=button2) then Sekunden:=Sekunden+1;
if Sekunden=60 then
begin
Sekunden:=0;
Minuten:=Minuten+1;
If Minuten=60 then
begin
Stunden:=Stunden+1;
Minuten:=0;
end;
end;
SSekunden:=IntToStr(Sekunden);
SMinuten:=IntToStr(Minuten);
SStunden:=IntToStr(Stunden);
if Length(SSekunden)=1 then
SSekunden:='0'+SSekunden;
if Length(SMinuten)=1 then
SMinuten:='0'+SMinuten;
If Length(SStunden)=1 then
SStunden:='0'+SStunden;

Label1.caption:=SStunden+':'+SMinuten+':'+SSekunde n;
end;

ins gegenteil umsetzten?

also keine stoppuhr, sondern ein countdown-zähler?
ich probiers schon seit 2 stunden, schaffs aber nicht.

thx im voraus,

mfg. Simon Jäger

[Simon Jäger]

sorry...hier nochmal der code:

<PRE>

procedure TForm1.Timer1Timer(Sender: TObject);
var
SSekunden, SMinuten, SStunden: string;
begin
if not (sender=button2) then Sekunden:=Sekunden+1;
if Sekunden=60 then
begin
Sekunden:=0;
Minuten:=Minuten+1;
If Minuten=60 then
begin
Stunden:=Stunden+1;
Minuten:=0;
end;
end;
SSekunden:=IntToStr(Sekunden);
SMinuten:=IntToStr(Minuten);
SStunden:=IntToStr(Stunden);
if Length(SSekunden)=1 then
SSekunden:='0'+SSekunden;
if Length(SMinuten)=1 then
SMinuten:='0'+SMinuten;
If Length(SStunden)=1 then
SStunden:='0'+SStunden;

Label1.caption:=SStunden+':'+SMinuten+':'+SSekunde n;
end;

</PRE&gt

[Martin Krause]

Hallo Simon,

hast Du es schon mal mit dem Variablen Typ Time probiert, und dann diese einfach eine Sekunde abziehen?
<p>
Label1.caption:=timetostr(strtotime(Label1.caption )-strtotime('00:00:01'));
<p>
Dann nur noch auf das Label1.caption auf '00:00:00' abfragen und den Countdown beenden !

eigentlich doch ganz einfach oder ?

Gruß Marti

[Simon Jäger]

hi

das das so einfach geht hätt ich jetzt nicht gedacht...thx :-

[Hagen Reddmann]

mit dem Delphi DateTime Type ist 1 Sekunde = 1 / 24 Stunden / 60 Minuten pro Stunde / 60 Sekunden pro Minute --> 1 Tag / 86400 Sekunden pro Tag rechnen. <br> Damit kann man mit DateTime := DateTime - 1/86400 arbeiten, oder eben Label1.Caption := TimeToStr(StrToTime(Label1.Caption) - 1/86400); <br>

Gruß Hage

[Martin Krause]

Hallo Hagen,

auf das war ich auch schon gekommen nur ich hatte irgendwie ein Knoten im Hirn, um den Wert auszurechnen, und bin deswegen den etwas längeren Weg gegangen, da hat mein Hirn, ob wohl es komplizierter ist nicht gestreikt ! HöHöHö.

Gruß Marti