各位前輩好，小弟想寫一個計時器， 當程式一打開 就會從 00:00:00 開始計算，一秒加1， 感覺不難，用timer可以讓數字從0一直加上去， 不過想轉成00:00:00時間格式，小弟找不到合適的function來用， 用TimeToStr又會在前面被加上「上午」「下午」一些字...    我有想寫loop來判斷，60就進1， 不過這樣00:00:00就要用三個Label， 不想把一個簡單的功能耗用太多資源，    請教各位前輩，有沒有什麼建議能指導一下 謝謝

gemi0305您好:   您可以參考小弟的拙作[碼表]   http://delphi.ktop.com.tw/topic.php?TOPIC_ID=26731 順心 <>～我也是在學習的階段,所以請您多多見諒與指教～

taishyang前輩你好~    好像大家想到計時，第一直覺就是用進位的方式  前輩的可愛小碼表用了六個 > 謝謝了~

小弟剛剛寫個了個function，給各位參考一下哦， 我覺得還滿可以啦，如果各位前輩有更好的方法， 請給我指教，謝謝!

AnsiString TForm1::toTime(int iTime)
{
    int s=0,m=0,h=0; //秒、分、時
                        
    m=iTime/60;            h=m/60;       //取時        
    m=m`;       //取分 
    s=iTime`;   //取秒        AnsiString TempStr;        TempStr.printf("d:d:d",h,m,s); //設定格式為00:00:00        return(TempStr);    }
//----------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
   t  ;
   Label1->Caption = toTime(t);
}
 

突然想到一個問題請教各位，因為我的t是int， 會不會因為timer一直跑，結果超出t的範圍，產生錯誤呢? 請前輩們給點意見~ 發表人 - gemi0305 於 2003/06/11 21:27:29

>>用TimeToStr又會在前面被加上「上午」「下午」一些字... AnsiString str = TimeToStr(DateTime); 您可以改用: DateTime.FormatString("hh:nn:ss"); 如此就不會被OS在控制台內所設的 (AM/PM) 或 (上午/下午) 所影響了... 小小意見僅供參考... ps:你寫的程式碼可行,我沒更好的意見. 三人行必有我師焉

突然想到一個問題請教各位，因為我的t是int， 會不會因為timer一直跑，結果超出t的範圍，產生錯誤呢? 請前輩們給點意見~ 對不起,忘了回覆上面這個問題耶~~ 其實你只要再增加宣告一個> > 三人行必有我師焉

給arnoyu前輩，    您說的方法我試過了， 對DateTime做運算時，如:++、--... 它會對day做運算，而不會對time~    大概看了一下online help，發現好像沒有對time遞增的功能 > < 看來可能要再花點時間研究這個DateTime， 為了做這個計時器，多學了一些東西，真好  感謝兩位前輩啦~

>> 您說的方法我試過了， >> 對DateTime做運算時，如: 、--... >> 它會對day做運算，而不會對time~ 說實在的,我不是粉清楚您說的耶! DateTimePicker1->Time= StrToTime("11:59:59"); 上面這行就能對 DateTime物件的時間屬性做更動了啊!? 試試看ㄅ~~ 希望您試得出來,記得要報告ㄛ!! 有點醉了,good night~~ 三人行必有我師焉

剛剛斷線,發現又中毒了, 請放心,回應是不可能帶毒滴~~ 剛剛查了一下,發現 NOW()的回傳TDateTime值竟是Double型態 本來就有點暈,查到後更暈~~ 原來 DecodeTime 這個函數再BCB也能用... gemi0305大大,我真的快掛了.. 明天再討論了~~ 三人行必有我師焉

看到自己昨晚的回應,真的好想哭~~ 每次喝醉都跟白痴一樣,而且特別雞婆~~ 真是萬分抱歉...(關於上面我的兩個爛回應).. 剛剛想了一下,發現您只要先宣告一個 TDateTime變數 然後用以下方法便可行了: TForm1 *Form1; TDateTime start1; //-------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //-------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { start1=Now(); Timer1->Enabled=true; } //-------------------------------------------------------------------- void __fastcall TForm1::Timer1Timer(TObject *Sender) { Edit1->Text=(Now()-start1).FormatString("hh:nn:ss"); } //-------------------------------------------------------------------- 我覺得這樣用蠻方便地說~~ 雕蟲小技,僅供參考.. 三人行必有我師焉

to 愛喝酒的arnoyu 前輩~ 真是個簡單又好用的方法阿~ 哈，我之前用那個function寫了一個小計時器說， 放在發表區中~ http://delphi.ktop.com.tw/topic.php?TOPIC_ID=32234 看來應該把語法改一下了~ 真是不好意思~呵 謝謝啦~