Question

delphi怎么计算程序运行时间

Answer 1

Delphi 语言的 DateUtils 单元提供了功能丰富的日期、时间函数，针对“计算程序运行时间”这一应用，可以参考使用以下功能函数：

• Now ：获取当前的日期和时间

Now 函数的 Note 提示，Now 获取的时间精确到最接近的秒，如果还需要更精确的时间（比如：毫秒级），可以考虑使用以下 Win API 函数：

GetLocalTime、GetSystemTime 或 GetTickCout 等。

• MilliSecondsBetween 函数：计算两个时间之间的差值（按毫秒计算）
  

• SecondsBetween 函数：计算两个时间之间的差值（按秒计算）

综合以上功能函数的资料，就可以着手编写应用的代码了，以下是示例：

var
  Form1: TForm1;
  AppTime: TDateTime;

implementation

uses System.DateUtils;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var SysTime: TSystemTime;
begin
  //AppTime = Now; //以秒计算时间

  GetLocalTime(SysTime);
  AppTime := SystemTimeToDateTime(SysTime);
end;

procedure TForm1.FormDestroy(Sender: TObject);
var
  SysTime: TSystemTime;
  CurTime: TDateTime;
begin
  //ShowMessage('程序共运行了 ' + SecondsBetween(AppTime,Now).ToString + ' 秒');

  GetLocalTime(SysTime);
  CurTime := SystemTimeToDateTime(SysTime);
  s := '程序共运行了 ' + MilliSecondsBetween(AppTime,CurTime).ToString + ' 毫秒';
  MessageBox(Handle, PChar(s), '信息提示', MB_OK + MB_ICONINFORMATION);
end;

代码运行截图：

Answer 2

var
  StartTime, EndTime: cardinal;
begin
  StartTime := GetTickCount;
  sleep(1000);
  EndTime := GetTickCount;
  caption := (IntToStr(EndTime - StartTime) + ' ms');
end;