cawte ludkovia potreboval by som poradit
akym sposobom mozem v delphi merat cas.
Napriklad cas triedenia cisiel.
Existuje na to komponent?
Dakujem
meranie casu delphi
-
audiotrack
VIP
- Príspevky: 25958
- Registrovaný: 09 sep 2005, 18:39
- Kontaktovať používateľa:
Re: meranie casu delphi
Kód: Vybrať všetko
Use TDateTime variables:
var Tinit,Tpost,Ttotal: TDateTime;
..
Tinit:=Now;
..(tvoj algoritmus triedenia)..
Tpost:=Now;
Ttotal:=TPost-Tinit;
Ttotal:=Ttotal*(24*60*60*1000);Re: meranie casu delphi
dakujem, audiotrack, ale vychadzalo mi divne cislo ( asi moja chyba 
)
viacmenej si ma priviedol na myslienku, ktora mi nakoniec pomohla
)viacmenej si ma priviedol na myslienku, ktora mi nakoniec pomohla
Kód: Vybrať všetko
var
Present1, Present2: TDateTime;
Hour1, Min1, Sec1, MSec1: Word;
Hour2, Min2, Sec2, MSec2: Word;
e: Word;
Begin
Present1:= Now;
SysUtils.DecodeTime(Present1, Hour1, Min1, Sec1, MSec1);
{
procedura
}
Present2:= Now;
SysUtils.DecodeTime(Present2, Hour2, Min2, Sec2, MSec2);
e:=(ABS(Min2-Min1)*60000) + (ABS(Sec2-Sec1)*1000) + ABS(MSec2-MSec1); // vysledok v ms
ShowMessage('hodnota je : '+IntToStr(ABS(Min2-Min1))+'min '+IntToStr(ABS(Sec2-Sec1))+'s '+IntToStr(MSec2-MSec1)+'ms a to je-> '+IntToStr(e)+'ms');
end;