Ich habe das jetzt so programmiert:
Delphi-Quellcode:
procedure TForm1.Timer3Timer(Sender: TObject);
begin
if Sekunde<10 then Label1.Caption:=IntToStr(minute)+':0'+IntToStr(Sekunde)
else Label1.Caption:=IntToStr(minute)+':'+IntToStr(Sekunde);
sekunde:=sekunde+Timer3.Interval div 1000;
if Sekunde=60 then
begin
Minute:=minute+1;
Sekunde:=0;
end;
end;
Meinst du es geht auch einfacher?
Zitat:
reiter System
was is n dat?