Il existe plusieurs manières d'effectuer une pause dans un programme.
La plus simple consiste à demander à l'utilisateur d'appuyer sur une touche. Si on désire simplement un appui sur Entrée, on utilisera l'instruction ReadLn :
...
WriteLn('Appuyez sur Entrée');
ReadLn;
...
end.
On peut également attendre l'appui sur une touche quelconque avec l'instruction ReadKey de l'unité Crt :
uses
Crt;
var
Ch: Char;
begin
...
Ch := ReadKey;
...
end;
Une autre méthode pour faire une pause consiste à faire tourner une boucle de temporisation (une boucle for vide). Néanmoins cette méthode a l'inconvénient d'être dépendante de la vitesse du système sur lequel est exécutée l'application.
On lui préfèrera alors l'utilisation de la procédure Delay(Ms: Word) de l'unité Crt :
uses
Crt;
begin
...
Delay(5000);
...
end.
Sous Windows, on pourra utiliser la fonction Sleep en remplacement de Delay, ou bien encore la fonction MsgWaitForMultipleObjects de l'API Windows.
|