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
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
Comment