Discussion :

[dimi2]

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.

[droggo]

Fei,

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

On peut écrire cette procédure comme ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

[dimi2]

Merci beaucoup.