programme Delphi soudainement ne postez pas les changements de requête

Question

J'ai une application Delphi qui a été en production depuis plusieurs années maintenant et récemment un morceau de code spécifique a cessé de fonctionner. En cas OnClose pour la forme que je donne les résultats suivants:

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; 

Il obtient à l'appel dtpPEEndTimeChange(self) qui est la suivante:

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

alors que dans cette fonction les appels programme Windows.pas et se coince dans :

function GetTickCount; external kernel32 name 'GetTickCount'; 

il ne publie jamais les modifications apportées à l'enregistrement.

Est-ce que quelqu'un sait si des mises à jour Windows ont pu causer ce dysfonctionnement? Nous sommes actuellement sur Windows XP Professionnel Version 5.1 SP 3.

Answer 1

GetTickCount renvoie Cardinal. Si vous stockez des résultats dans des variables entières, le dépassement d'entier se produira lorsque votre ordinateur sera en panne depuis 25 jours environ. Je ne fais que deviner, mais c'était une fois un problème dans notre application.