[D7] Comment mesurer le temps d'exécution d'un bloc de code ?

Bonjour,

Je souhaiterais mesurer le temps d'exécution de plusieurs blocs de code dans une application écrite en Delphi 7.
Ces calculs doivent avoir une précision de l'ordre de la micro seconde voire la nano seconde si c'est possible :lol:

Je pensais utiliser des :
- TTimer mais appremment ils ne servent pas à ça
- opérations sur des TDateTime grâce notamment à la fonction Now mais la précision ne sera pas assez importante.

Malgré mes recherches sur les forums & FAQ je ne trouve pas.
Pouvez-vous m'aider ?
Merci d'avance.

Faut pas trop rêver en terme de precision sur un os multitache non orienté temps réel.

Il y a la fonction gettickcount qui est facile à utiliser, sinon il y a des api win32 pour gérer des timers plus précis mais n'ai pas le code sous la main.

Sinon il est possible d'utiliser un profiler.

Bonjour,
Pour l'utilisation du GetTickCount :

GetTickCount renvoie le nombre de millisecondes depuis que ton PC est allumé.
Toi tu sais quand le bloc de code commence et quand il se finit, tu veux donc faire une soustraction entre ces deux valeurs.

Soit :

Code:

---

1 2 3 4 5 6 7 8 9 10

var Start : Integer; begin Start := GetTickCount; // Bloc de code à tester // (...)   Showmessage('Top Chrono ! '+IntToStr(GetTickCount-Start)+' millisecondes écoulées.');   end;

---

Comme l'a dit cpdump les résultats ne peuvent être fiables à 100% il faudra donc faire X Tests et faire une moyenne de ces tests (20 tests donnent une bonne idée déjà)

Si ton bloc de code est trop rapide à exécuter (- de 10 millisecondes) il faudra le prendre à part et le mettre dans une boucle

Code:

---

for i:=1 to 35000 do ...

---

Pour avoir des valeurs plus probantes.

Amuse toi bien !

Citation:

---

Envoyé par cpdump

Sinon il est possible d'utiliser un profiler.

---

J'ai déjà utilisé AQTime & ProDelphi mais comme l'expliquait -Sylvain Leray- je désire obtenir un temps moyen sur une échelle que je peux faire varier (apparemment ces profilers ne laissent pas cette possibilité ?).

Merci de vos réponses, je vais faire quelques tests...

Ok ça fonctionne bien comme prévu.
Ceci dit, à la compilation j'ai l'avertissement suivant :

Citation:

---

[Avertissement] formMenu.pas(75): Combinaison de types signés et non signés - opérandes agrandis

---

L'instruction concernée est :

Code:

---

tempsCourant := GetTickCount - tempsCourant;

---

La variable tempsCourant est de type Integer

Je comprends le message mais qu'est-ce que je peux faire ?

GetTickCount renvoie un Cardinal (non signé) et ton tempsCourant est probablement déclaré Integer (signé). Il te faut donc déclarer tempsCourant en Cardinal.

Ok j'ai compris le pourquoi du comment.

Merci à tous.