calculer le temps

Question

Je cherche un moyen de calculer le temps d'exécution d'une procedure en delphi, existe-t-il une fonction permettant de le faire ?
(Un Timer est dispo dans la Personnal Edition, comment fonctionne-t-il ?)

Greg.

cs_Nono40 · Answer

Le Timer de Delphi n'est pas fait pour ça. Il permet d'effectuer des tâche avec une période régulière.

Le plus simple pour mesurer un temps de clacul, est de faire la différence entre l'heure de début et de fin. Il faut penser que le format TDateTime de Delphi supporte très bien les additions et soutractions. D'ou :
Var Debut,Fin:TDateTime
Begin
   // On garde l'heure de début
   Debut:=Now;
   // Gros calcul
   ....
   // On prend l'heure de fin
   Fin:=Now;
   // On afffiche la différence
  ShowMessage('Calcul en '+TimeToStr(Fin-Debut));
End;

Tu peux remplacer TimeToStr par une autre fonction, surtout si tu veux afficher aussi les millisecondes. Par exemple
FormatDateTime('HH:NN:SS:ZZZ',Fin-Debut);

--- :sleepy)  Nono du Moulin  :sleepy) ---

cs_bouiboui · Answer

c'est parfait, merci.
 :big) 
Greg.

red_nail2004 · Answer

sur Edit1.text  y a le temps courant et sur Edit2.text y a un temps précédant , comment faire pour afficher la soustraction entre Edit1 et Edit2 en Edit3 .

2) j'ai  button1 et Edit1 comment faire pour afficher un chrono qui compte sans fin et suit les minutes de time  et demarre quand je clic sur le button1 et marci d'avance a tous.

cs_getsource · Answer

j'ai le mme problem 
sa  marche cette méthode 
mais si la procedure demmarer debut= 23:12 ou just avant minhuit
et la fin fin = 01:20 ,,
tu aura resultat bizzar fin - debut

b4zeus · Answer

zeus for chess

b4zeus · Answer

zeus for chess

Calculer le temps

6 réponses

Votre réponse

Discussions similaires