我是新手~~剛才問的~~我試了~~不行~~~不小心結案了 我在程式中用了now(是不是只能用一次呀) 我想在程式的開頭和結束時，計算我跑了多久，有可能超過一天 但是一直算不出來~~我用了DateTimeToStr這個指令存到檔中 在用StrToDateTime解~~但是解不出來~~~誰可以幫我~~ 還是有更好的計算方法~~~~~ 謝謝~~~~~~~~

設定一個變數 startTime : double ; Create 的時候 StartTime := now ; 然後要顯示的時候  

 
var
 H,N,S,ms : Word ;
 sD,sH,sN,sS : string ;
begin
 DecodeTime(now-StartTime,H,N,S,ms);
 sD := inttostr(Trunc(now-StartTime));
 sH := inttostr(H);
 sN := inttostr(N);
 sS := inttostr(S);
 Caption := Format('Server 已經啟動 : %s Day %s Hr %s Min %s Sec',[sD,sH,sN,sS]);

Try it ---------------------- 一切有為法 如夢幻泡影 如露亦如電 應做如是觀 ----------------------

要計算你程式執行多久不難,但你可否說清楚你到這個數字後要甚做,要否記錄下來用甚麼來記,要累加嗎, 只記多久還是要記住確實時間等等,免得做了一段碼給你又說不對不是這樣用。

我很感謝你們的幫忙~~~ 這次我真的會了~~~~ 謝謝~~~