以毫秒为单位获取时间 Delphi

在 Delphi 中，我们可以使用 GetTickCount 函数来获取自系统启动以来的毫秒数。下面是一个示例代码：

var
  startTime, endTime: Integer;
begin
  startTime := GetTickCount;

  // 执行你的代码

  endTime := GetTickCount;
  ShowMessage(Format('耗时 %d 毫秒', [endTime - startTime]));
end;

执行代码之前，先记录当前的毫秒数作为起始时间 startTime；执行完代码后，再获取当前的毫秒数作为结束时间 endTime，两者相减即可得到代码执行的时间。最后，使用 ShowMessage 函数输出耗时的毫秒数。

此外，在 Delphi 中，还可以使用 TStopWatch 类来获取代码执行时间。TStopWatch 对象可以启动、停止、暂停和恢复计时器。下面是一个使用 TStopWatch 的示例代码：

var
  stopWatch: TStopWatch;
begin
  stopWatch := TStopWatch.Create;
  stopWatch.Start;

  // 执行你的代码

  stopWatch.Stop;
  ShowMessage(Format('耗时 %d 毫秒', [stopWatch.ElapsedMilliseconds]));
end;

首先，创建一个 TStopWatch 对象 stopWatch；调用 Start 方法开始计时；执行完代码后，调用 Stop 方法停止计时。最后，使用 ElapsedMilliseconds 属性获取耗时的毫秒数，并使用 ShowMessage 函数输出。

以上两种方式都能够以毫秒为单位准确地获取代码执行时间。不同之处在于，使用 GetTickCount 方法可以获取自系统启动以来的毫秒数，而 TStopWatch 则是使用高精度计时器。