Reported By: Paul Ralphs Reported On: 4/24/2002 For: Version 2.11 Build 1
# 1095Internal Declaration of GetTickCount Variables Incorrect and Can Cause Range Errors If a machine is not switched off and left on this line:
BeginMSecs:=GetTickCount;
eventually gets a 'Range Error Check' problem when it overflows. The fix is below. There are also some TempEndTime: Integer and TempStartTime: Integer lines that also need updating.
This is the fix:
procedure TDataQuery.ExecuteQuery(var ResultSet: TDataCursor);
var
// BeginMSecs: Integer;
// EndMSecs: Integer;
BeginMSecs: Cardinal;
EndMSecs: Cardinal;
ResolutionFixed Problem on 6/2/2002 in version 3.11 build 1