Obtenir le temps d'exécution d un processus

Soyez le premier à donner votre avis sur cette source.

Snippet vu 1 106 fois

Contenu du snippet

// équation fondamentale : Pour obtenir le temps d'exécution d'un processus.
// La somme des temps avec le symbole Σ «machine» estimée est affiché en fonction 
// de l'index i ce qui est utile dans une boucle for i.

var time_avant:=Gettickcount;

function Obtenir_Temps_estimer(i,n_Circonvolution,time_begin:int64):string;
  var temp_ecouler:real;
      time_spare:int64;
  begin
  if i=0 then exit;
  if false then
    begin
    time_spare:=gettickcount-time_begin;
    Result:=' Temps estimé = '+ 
      Inttostr(time_spare)+'/'+Inttostr(time_spare*n_Circonvolution div i)+' Millisecondes';
    end
  else if false then
    begin
    time_spare:=(gettickcount-time_begin) div 100;
    Result:=' Temps estimé = '+ 
      Inttostr(time_spare)+'/'+Inttostr(time_spare*n_Circonvolution div i)+'   ---  1/10ème de seconde';
    end
  else
    begin
    temp_ecouler:=(gettickcount-time_begin)/1000;
    Result:=' Temps estimé = '+ 
      Floattostrf(temp_ecouler,FFFixed,4,1)+'/'+
        FloattostrF(temp_ecouler*n_Circonvolution/i,Fffixed,4,1)+' secondes'; //Denis
    end;
  end;  {Obtenir_Temps_estimer}

Compatibilité : 1.0

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.