怎么计时？

Question

StatusBar1.Panels[I].Text := DateTimeToStr(DateTime(now));

Answer 1

最好加上个timer
这样时间就会变了

Answer 2

是啊，上边那句话要在TimeronTime里加啊

Answer 3

up
在timer的ontimer事件中写
StatusBar1.Panels[I].Text := DateTimeToStr(DateTime(now));

Answer 4

var
aa,bb:Tdatetime;
begin
aa:=gettickcount;
  .
  .
  .
bb:=gettickcount;
StatusBar1.Panels[i].Text := inttostr(bb-aa);

Answer 5

你说清楚啊
用GetTickCount
//得到的是微妙；
楼上的

Answer 6

不对啊，IntToStr(bb-aa);这报错，

Answer 7

小小。。充电中。
虽然我是第一次接触ＤＥＬＰＨＩ，但是这个？ａａ，ｂｂ都是gettickcount
那么相减会得什么呢？东北人啊，你怎么那么粗心啊，

Answer 8

ihihonline(小小->充电中……) 
有ＱＱ吗，交个朋友啊，，，不交朋友也行，拜师好了

Answer 9

其实这儿写的不对的，你应该这样；
在MainFormCreate(..)
var
  H : String;
begin
  H := DateTimeToStr(Now);
end;然后
在timer的ontimer事件中写
StatusBar1.Panels[I].Text := DateTimeToStr(DateTime(now)-StrTODateTime(H));
就可以了；
===================================================
上边那个只能得到执行程序的时间