jak zrobic program ktory by odliczal dodziny minuty sekundy od jego uruchomienia?
0
0
TTimer + F1 (lub delay + Ctrl+F1 - jeśli w TP)
0
Najłatwiej timerem, dajesz w Interval 1000, w OnTimer taką procedurę (zakładam, że wynik ma być wyswietlony w label1):
<delphi>
var
godz, min, sek, licznik_pom : integer;
begin
licznik := licznik + 1;
godz := licznik div 3600;
licznik_pom := licznik mod 3600;
min := licznik_pom div 60;
licznik_pom := licznik_pom mod 60;
sek := licznik_pom;
label1.caption := inttostr(godz) + ':' + inttostr(min) + ':' + inttostr(sek);
end;
<delphi>
Licznik to zmienna globalna typu integer, możesz ją zainicjowac na początkową ilość sekund w OnCreate formy.