Soyez le premier à donner votre avis sur cette source.
Snippet vu 9 435 fois - Téléchargée 40 fois
function hbwait_ms(ms : integer) : integer; var hbms : integer; begin hbms := GetTickCount + ms; repeat Application.ProcessMessages; until GetTickCount >= hbms end; function hbwait_sc(sc : integer) : integer; var hbsc : integer; begin hbsc := GetTickCount + (sc * 1000); repeat Application.ProcessMessages; until GetTickCount >= hbsc end; {On appelera ensuite la fonction comme tel : } hbwait_sc(5); {Fait une pause de 5 secondes} hbwait_ms(2000); {Fait une pause de 2500 millisecondes}
28 juin 2005 à 09:53
=> lol !
9 nov. 2002 à 22:01
Utiliser function au lieu de procédure ca fait plus bô ?
- Remplace les Integer par des Cardinal (Sauf si tu est fan des avertissements dans la fenêtre de résultat).
Sinon, l'application et quand même partiellement bloqué car on ne peut pas la fermer pendant qu'on attends... Le mieux selon moi est d'utiliser un thread...
3 nov. 2002 à 02:01
3 nov. 2002 à 02:00
2 nov. 2002 à 17:50
Je ne remets pas en cause l'utilité de cette méthode, mais elle doit utilisée en toute connaissance de cause (et surtout d'effets).
Il est bien plus utile que l'application puisse réagir pendant que des tâches parallèles s'effectuent (Threads).
Quant au couple Begin..End, il sert à délimiter un bloc d'instruction. Certaines instructions incorporent ces délimiteurs : case..end, repeat..until, try..finally..end, try..except..end
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.