marcellus911 a écrit :
voici mon code (sensé afficher 'a' pdt trois seconde puis 'b') :
procedure TForm1.btnStartClick(Sender: TObject);
var TopDepart : TDateTime;
begin
Label2.Caption:='a';
TopDepart := now;
While (now < TopDepart+3000) do Application.ProcessMessages;
// Tracking(Timer1);
Label2.Caption:='c';
end;
=> pas d'erreur de compilation mais à l'exécution l'interface affiche un a puis elle est se bloque...
|
Pas etonant
Vas voir l'aide pour TDateTime, tu comprendra
Bon, allez! Je te donne la reponse! TDateTime indique un temp...en jours. Donc, ta boucle s'aretera dans 3000 jours. ![[:gijar] [:gijar]](https://forum-images.hardware.fr/images/perso/gijar.gif)
Message édité par el zozo le 21-04-2006 à 16:21:50