odliczanie od 0

0

jak zrobic program ktory by odliczal dodziny minuty sekundy od jego uruchomienia?

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.

1 użytkowników online, w tym zalogowanych: 0, gości: 1