我想要得到执行两个动作的间隔时间,要比较精确的,怎么实现呢?
比如程序中有一个排序的算法,我想得到做完排序的时间,应该怎么样才可以精确点。
还有做一个循环,循环的次数是动态的,每次都不一样的,我要怎么样才可以使用进度条来显示执行的进度,并得到比较精确的时间呢?请大家帮帮忙!

解决方案 »

  1.   

    GetTickCount不过很长得,极不住了
      

  2.   

    var time1,time2,exetime:tdatetime;time1 := now ;do something....time2 := now;exetime := time2 - time1;
      

  3.   

    执行这个不是也需要时间吗?
    exetime := time2 - time1;还可以怎么样呢?
      

  4.   

    var
     stTime:integer;
     endTime :integer;
    totalTime :integer;
    begin
      stTime := GetTickCount;
    //=============something u do 
      endTime := GetTickCount;
      totalTime := (endTime- stTime)/1000;  //second
    end;
      

  5.   

    second
    我想精确到豪秒,这样可以吗?GetTickCount;
    不是一个API吗?那不是还要先声明??
      

  6.   

    执行两个动作的间隔时间在win98以外的系统里是不可能精确的,只能是一个参考数据