Procedure Delay et GetTickCount

Bonjour !

J'ai fait une recherche à propos d'une fonction qui donne un repos entre des actions ; par exemple, je veux que cette série soit affichée l'une aprés l'autre :

loading
loading.
loading..
loading...

J'ai trouvé ce code

Code:

---

1 2 3 4 5 6 7 8 9

Procedure Delay(Millisecond:Integer); Var fin:LongInt; Begin fin:=GetTickCount+(Millisecond);   Repeat Until GetTickCount>=fin; End;

---

Mais je n'ai pas compris comment ça marche, en plus "GetTickCount" est inconnue.

Merci d'avance.. :)

GetTickCount c'est sous Windows, pour Turbo Pascal sous DOS tu as une fonction Delay dans l'unité CRT si mon souvenir est bon.

Citation:

---

Envoyé par Paul TOTH

GetTickCount c'est sous Windows, pour Turbo Pascal sous DOS tu as une fonction Delay dans l'unité CRT si mon souvenir est bon.

---

c'est bon ^^ mais getTickCount est inconnue :p

Bonjour !

Voici un exemple illustrant la réponse donnée précédemment :

Code:

---

1 2 3 4 5 6 7 8 9

(* Turbo Pascal *)   program exemple_delay;   uses CRT;   begin delay(3000); end.

---

j'ai fait une autre méthode, une boucle de calcule qui dure quelque secondes, sans affichage, mais je pense c'est pas pratique.. :aie:

Citation:

---

Envoyé par Roland Chastain

Bonjour !

Voici un exemple illustrant la réponse donnée précédemment :

Code:

---

1 2 3 4 5 6 7 8 9

(* Turbo Pascal *)   program exemple_delay;   uses CRT;   begin delay(3000); end.

---

---

la fonction delay est inconnue pour TP 1.5

Bonjour,

Pour pouvoir utiliser GetTickCount, il faut déclarer l'unité WinProcs.

;)

Citation:

---

Envoyé par Alcatîz

Bonjour,

Pour pouvoir utiliser GetTickCount, il faut déclarer l'unité WinProcs.

;)

---

parfait!! :D merci pour tt le monde
résolu ;)