Delay() non reconnu

Bonjour,
La fonction "Delay()" engendre une erreur (erreur 3) dans TPW. Quelle est la fonction qui correspondrait à celle-ci et qui serait acceptée par TPW ?
Merci encore.

Fei,

C'est une question qui revient assez régulièrement.

On peut écrire cette procédure comme ceci:

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;

---

Merci beaucoup.