Delphi 프로그램이 갑자기 쿼리 변경 사항을 게시하지 않습니다.

Question

저는 몇 년 동안 생산 중이며 최근에 특정 코드 조각이 작동을 멈추었습니다. 폼의 OnClose 이벤트에서 나는 다음과 같습니다

procedure TfrmPublicEmpInfo.FormClose(Sender: TObject;var Action: TCloseAction); 
var 
    i : integer; 
    strWorkDays : string; 
begin 
    If cbMonday.Checked then strWorkDays := strWorkDays + 'Mo'; 
    If cbTuesday.Checked then strWorkdays := strWorkDays + 'Tu'; 
    If cbWednesday.Checked then strWorkdays := strWorkDays + 'We'; 
    If cbThursday.Checked then strWorkdays := strWorkDays + 'Th'; 
    If cbFriday.Checked then strWorkdays := strWorkDays + 'Fr'; 
    If cbSaturday.Checked then strWorkdays := strWorkDays + 'Sa'; 
    If cbSunday.Checked then strWorkdays := strWorkDays + 'Su'; 
    if strWorkDays <> '' then  
    begin 
    qryPubEmployees.Edit; 
    qryPubEmployees.FieldValues['OCCUPATION'] := strWorkDays; 
    end; 

    dtpPEEndTimeChange(self); 
    dtpPEStartTimeChange(self); 

    For i := 0 to ComponentCount - 1 do 
    begin 
    If Components[i] is TQuery Then 
     with Components[i] as TQuery do 
     begin 
     if State = dsEdit then 
     post; 
     end; 
    end; 
end; 

그것은이있는 dtpPEEndTimeChange(self) 전화를 가져옵니다

procedure TfrmPublicEmpInfo.dtpPEEndTimeChange(Sender: TObject); 
begin 
    qryPubEmployees.Edit; 
    dbePEEndTime.Field.Value := StrToInt(FormatDateTime('HHMM', dtpPEEndTime.Time)); 
end; 

이 기능의 프로그램이 Windows.pas를 호출에 걸리면 동안 :

function GetTickCount; external kernel32 name 'GetTickCount'; 

변경 사항을 레코드에 게시하지 않습니다.

Windows 업데이트로 인해 이러한 오작동이 발생했는지 알 수 있습니까? 현재 Windows XP Professional 버전 5.1 SP 3을 사용하고 있습니다.

Answer 1

GetTickCount는 Cardinal을 반환합니다. 정수 변수에 결과를 저장하는 경우, 컴퓨터가 최대 25 일 동안 계속되면 정수 오버플로가 발생합니다. 저는 추측하고 있지만 일단 응용 프로그램에서 문제가있었습니다.