Delphi毫秒级时间戳

Delphi中获取时间戳通常使用GetTickCount函数，但是在该函数在毫秒级别是非连续的，通常会间隔15-16毫秒进行跳跃。例如以下代码

procedure TForm1.btn2Click(Sender: TObject);
var
  i: Cardinal;
  LastTime, CurTime: Cardinal;
begin
  i := 0;
  LastTime := GetTickCount;
  while True do
  begin
    if i > 10 then
      Break;
    CurTime := GetTickCount;
    if CurTime <> LastTime then
    begin
      LastTime := CurTime;
      Inc(i);
      mmo1.Lines.Add('CurTime' + IntToStr(CurTime));
    end;
  end;
end;

输出如下：

CurTime268143831
CurTime268143847
CurTime268143862
CurTime268143878
CurTime268143894
CurTime268143909
CurTime268143925
CurTime268143940
CurTime268143956
CurTime268143972
CurTime268143987

所以在比较小的时间控制之下，使用GetTickCount是不合适的。

一种其他的解决办法是使用now函数。

procedure TForm1.