डेल्फी: सरल एचएच: मिमी: एसएस टाइमर

Question

क्या किसी के पास एचएच के लिए एक छोटा और प्रभावी कोड है: मिमी: एसएस टाइमर (टाइमर 1। अंतराल: = 1000)? मैं एक बना सकता हूं लेकिन मुझे कुछ कुशल चाहिए।

धन्यवाद!

मेरे कोड:

Var MyTime:TTime; 

MyTime:=EncodeTime(0,0,0,0); 

procedure TForm1.Timer1Timer(Sender: TObject); 
begin 
MyTime:=incsecond(Mytime,1); 
form1.Label1.Caption:='Time: '+TimeToStr(MyTime); 
end; 

Answer 1

एक वार की जब टाइमर शुरू कर दिया ट्रैक रखने के लिए जोड़ें।

TForm1 = class(TForm) 
    private 
    timerStart: TDateTime; 
    public 
    proceure StartTimer; 
    end; 

प्रक्रिया OnTimer घटना

Label1.caption := formatdatetime('hh:nn:ss', timerStart - now()); //nn is for minutes. 

में टाइमर

proceure TForm1.StartTimer; 
beign 
timerStart := now(); 
timer1.interval = 1000; 
timer1.enabled := true; 
end; 

शुरू करने के लिए यह सही समय किसी भी अंतराल के लिए ले जाया दिखाना चाहिए।
i.e. 5000 प्रत्येक 5 सेकंड, समय लेने के लिए दिखाने के लिए।

नोट: परीक्षण के साथ, 24 घंटे से अधिक समय तक टाइमर चलाने से सही समय अंतर नहीं दिख सकता है। उस के लिए मुझे लगता है कि है कि जैसे दिन