Ĺadny brzuch
Jak wyświetlić w memo1 czas uruchomienia programu? Tzn. chodzi mi o to, żeby wyświetlić takie coś:
Program uruchomiono o godzienie: xx:xx:xx (godzina, minuta, sekunda) Jest już uruchomiony xx:xx:xx (godzina, minuta sekunda, tylko, że tutaj trzeba odjąć czas teraźniejszy od czasu uruchomienia, czyli np. jeśli program uruchomiono o 14, a teraz już jest 15, to będzie pisało 1:00:00
Szukałem w google oraz na forum, ale nie znalazłem :(
Form ma chyba akcję w stylu onload, czy coś takiego, odpalane przy uruchomieniu - w nim pobierz aktualny czas i zapisz go sobie gdzieś, a później porównuj go z aktualnym i wypisuj różnicę
Jak wyświetlić w memo1 czas uruchomienia programu? Tzn. chodzi mi o to, żeby wyświetlić takie coś:
Program uruchomiono o godzienie: xx:xx:xx (godzina, minuta, sekunda) Jest już uruchomiony xx:xx:xx (godzina, minuta sekunda, tylko, że tutaj trzeba odjąć czas teraźniejszy od czasu uruchomienia, czyli np. jeśli program uruchomiono o 14, a teraz już jest 15, to będzie pisało 1:00:00
Szukałem w google oraz na forum, ale nie znalazłem :(
FormatDateTime
TimeBetween tak to sie chyba nazywa. Masz to w module DateUtils
TimeBetween tak to sie chyba nazywa. Masz to w module DateUtils
Patrzyłem po funkcjach biblioteki to moze jestem ślepy ale "TimeBetween" nie widziałem :D
Nie wiem czy jeszcze ci to potrzebne czy moze juz znalazłeś ale ja wrzucam ci ponizej pewną ew.
Napisłem na zasadzie label'ów a nie memo ale z conversją nie powinienes miec problemów chyba... :>
//..... var Form1: TForm1; i : integer; implementation {$R *.dfm} procedure TForm1.Timer1Timer(Sender: TObject); // ustaw na 1000 var czasA : TDateTime; begin i:= i + 1; czasA := StrToTime('00:00:00'); czasA := IncSecond(czasA,i); //chyba nie trzeba tłumaczyć ;] czasA + naliczone sekundy (i) label1.caption := TimeToStr(czasA); //Label1 bedzie ci pokazywał czas który upłynoł od odpalenia timer1 end; procedure TForm1.Button1Click(Sender: TObject); // równoczesnie mozesz to wrzucic w form1.OnShow czy jak ci pasuje ;] var czasB : TDateTime; begin czasB:= Now; label2.Caption := TimeTostr(czasB); //label2 bedzie pokazywał czas zapisany do czasB po odpaleniu timer1.Enabled := true; end;
Mi to działa ale oczywiscie mogłem sie gdzies walnąć bo pisałem to kilka minut po 2 w nocy :D
Jezeli ci to pomogło albo masz jakies pytania to napisz ;]
Użytkownik blacha14 edytował ten post 04 sierpień 2007, 01:23
Patrzyłem po funkcjach biblioteki to moze jestem ślepy ale "TimeBetween" nie widziałem :D
Sorry, walnalem sie ;) tak to jest jak sie z glowy pisze bez sprawdzenia :P
SecondsBetween - i analogicznie dla godzin i minut :]
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Program uruchomiono o godzienie: xx:xx:xx (godzina, minuta, sekunda) Jest już uruchomiony xx:xx:xx (godzina, minuta sekunda, tylko, że tutaj trzeba odjąć czas teraźniejszy od czasu uruchomienia, czyli np. jeśli program uruchomiono o 14, a teraz już jest 15, to będzie pisało 1:00:00
Szukałem w google oraz na forum, ale nie znalazłem :(
Form ma chyba akcję w stylu onload, czy coś takiego, odpalane przy uruchomieniu - w nim pobierz aktualny czas i zapisz go sobie gdzieś, a później porównuj go z aktualnym i wypisuj różnicę
Jak wyświetlić w memo1 czas uruchomienia programu? Tzn. chodzi mi o to, żeby wyświetlić takie coś:
Program uruchomiono o godzienie: xx:xx:xx (godzina, minuta, sekunda) Jest już uruchomiony xx:xx:xx (godzina, minuta sekunda, tylko, że tutaj trzeba odjąć czas teraźniejszy od czasu uruchomienia, czyli np. jeśli program uruchomiono o 14, a teraz już jest 15, to będzie pisało 1:00:00
Szukałem w google oraz na forum, ale nie znalazłem :(
FormatDateTime
TimeBetween tak to sie chyba nazywa. Masz to w module DateUtils
TimeBetween tak to sie chyba nazywa. Masz to w module DateUtils
Patrzyłem po funkcjach biblioteki to moze jestem ślepy ale "TimeBetween" nie widziałem :D
Nie wiem czy jeszcze ci to potrzebne czy moze juz znalazłeś ale ja wrzucam ci ponizej pewną ew.
Napisłem na zasadzie label'ów a nie memo ale z conversją nie powinienes miec problemów chyba... :>
//..... var Form1: TForm1; i : integer; implementation {$R *.dfm} procedure TForm1.Timer1Timer(Sender: TObject); // ustaw na 1000 var czasA : TDateTime; begin i:= i + 1; czasA := StrToTime('00:00:00'); czasA := IncSecond(czasA,i); //chyba nie trzeba tłumaczyć ;] czasA + naliczone sekundy (i) label1.caption := TimeToStr(czasA); //Label1 bedzie ci pokazywał czas który upłynoł od odpalenia timer1 end; procedure TForm1.Button1Click(Sender: TObject); // równoczesnie mozesz to wrzucic w form1.OnShow czy jak ci pasuje ;] var czasB : TDateTime; begin czasB:= Now; label2.Caption := TimeTostr(czasB); //label2 bedzie pokazywał czas zapisany do czasB po odpaleniu timer1.Enabled := true; end;
Mi to działa ale oczywiscie mogłem sie gdzies walnąć bo pisałem to kilka minut po 2 w nocy :D
Jezeli ci to pomogło albo masz jakies pytania to napisz ;]
Użytkownik blacha14 edytował ten post 04 sierpień 2007, 01:23
Patrzyłem po funkcjach biblioteki to moze jestem ślepy ale "TimeBetween" nie widziałem :D
Sorry, walnalem sie ;) tak to jest jak sie z glowy pisze bez sprawdzenia :P
SecondsBetween - i analogicznie dla godzin i minut :]