时间记录

Question

想在一个程序里面添加一个用来记录此程序每次运行时间和累计运行时间的，，，该咋整。。

Answer 1

用一個Trimerprivate
  StartTime:TDateTime;Form的Create事件:
  StartTime:=Now;Timer的onTimer事件:
  label1.caption:='已运行时间：'+ TimeToStr(NOW- StartTime);