Delphi: Как избежать, чтобы EIntOverflow потеряли значимость при вычитании?

Вы также можете использовать DSiTimeGetTime64 из DSiWin32 :

threadvar
  GLastTimeGetTime: DWORD;
  GTimeGetTimeBase: int64;

function DSiTimeGetTime64: int64;
begin
  Result := timeGetTime;
  if Result < GLastTimeGetTime then
    GTimeGetTimeBase := GTimeGetTimeBase + $100000000;
  GLastTimeGetTime := Result;
  Result := Result + GTimeGetTimeBase;
end; { DSiTimeGetTime64 }

Можно использовать тип данных Int64, чтобы избежать переполнения:

var
  Start, Delta : Int64;
begin
  Start := GetTickCount;
  ...
  Delta := GetTickCount - start;
  if (Delta > 10000) then
    ...

Я перестал повсюду выполнять эти вычисления после того, как написал несколько вспомогательных функций, которые вызываются вместо них.

Чтобы использовать новую функцию GetTickCount64 () в Vista и более поздних версиях, существует следующий новый тип:

type
  TSystemTicks = type int64;

, который используется для всех таких вычислений. GetTickCount () никогда не вызывается напрямую, вместо этого используется вспомогательная функция GetSystemTicks () :

type
  TGetTickCount64 = function: int64; stdcall;
var
  pGetTickCount64: TGetTickCount64;

procedure LoadGetTickCount64;
var
  DllHandle: HMODULE;
begin
  DllHandle := LoadLibrary('kernel32.dll');
  if DllHandle <> 0 then
    pGetTickCount64 := GetProcAddress(DllHandle, 'GetTickCount64');
end;

function GetSystemTicks: TSystemTicks;
begin
  if Assigned(pGetTickCount64) then
    Result := pGetTickCount64
  else
    Result := GetTickCount;
end;

// ...

initialization
  LoadGetTickCount64;
end.

Вы даже можете вручную отслеживать перенос GetTickCount () возвращает значение и возвращает истинное 64-битное системное количество тиков и в более ранних системах, что должно работать достаточно хорошо, если вы вызываете функцию GetSystemTicks () хотя бы раз в несколько дней. [ Кажется, я где-то помню реализацию этого, но не помню, где это было. gabr опубликовал ссылку и реализацию .]

Теперь тривиально реализовать такие функции, как

function GetTicksRemaining(...): TSystemTicks;
function GetElapsedTicks(...): TSystemTicks;
function IsTimeRunning(...): boolean;

, которые будут скрывать детали. Вызов этих функций вместо вычисления продолжительности на месте также служит документированием намерения кода, поэтому требуется меньше комментариев.

Изменить:

Вы пишете в комментарии:

Но, как вы сказали, откат GetTickCount в Windows 2000 и XP по-прежнему оставляет исходную проблему.

Вы можете легко это исправить. Во-первых, вам не требуется для возврата к GetTickCount () - вы можете использовать код gabr, предоставленный для расчета 64-битного счетчика тиков в старых системах , поскольку хорошо. (Вы можете заменить timeGetTime () на GetTickCount) , если хотите.)

Но если вы не хотите этого делать, вы можете просто отключить проверки диапазона и переполнения во вспомогательных функциях или проверить, меньше ли minuend, чем вычитаемое, и исправить это, добавив 100000000 долларов (2 ^ 32 ) для имитации 64-битного счетчика тиков. Или реализовать функции на ассемблере, и в этом случае в коде нет проверок (не то чтобы я советовал это, но это возможно).