Hallo,
hab schon die Suche verwendet, aber nicht wirklich was passendes gefunden.
Ich möchte die Uhrzeit in einem Label anzeigen, das sich natürlich aktualisiert.
Gefragt sind Stunde:Minute.
z.B.: 01:58 --> 01:59 --> 2:00
Bei der Suche bin ich auf folgendes gestoßen:
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
var
milsek,tdiv: cardinal;
var
min,sek,starttime : Cardinal;
begin
milsek := GetTickCount;
tdiv := milsek-starttime;
if tdiv >= 1000 then
begin
inc(sek);
starttime := starttime + 1000;
end;
if sek >= 60 then
begin
sek := 0;
inc(min);
end;
label1.Caption := inttostr(min)+':'+inttostr(sek)+':'+inttostr(tdiv);
end;
folgendes kommt dabei heraus:
1:0:42935...
Beitrag wurde um 01:55 Uhr geschrieben.
Wie kann ich das realisieren?