Uneori este necesară măsurarea duratei de execuție a oricăror operații (secțiuni de cod) într-un mediu Delphi. Eu folosesc un truc simplu pentru asta. Voi spune imediat că am spionat codul de la un dezvoltator și l-am adaptat pentru scopurile mele și apoi am decis să fac o procedură universală pentru utilizarea în diferite aplicații.
Mai întâi de toate, trebuie să scrieți și să declarați următoarea funcție:
Acum, la punctul din cod în care trebuie să începem măsurarea timpului, vom introduce - TimeBegin: = Ora și în cazul în care această dimensiune trebuie terminată - TimeEnd: = Time. Da, în acea procedură sau funcție, unde trebuie să măsurați timpul, trebuie să declarați două variabile - TimeBegin, TimeEnd: TDateTime.
procedură Numele procedurii dvs. (expeditor: TObject); var // definește variabilele pentru a măsura timpul TimeBegin, TimeEnd: TDateTime; începe TimeBegin: = Timp; // aici este codul a cărui durată de execuție trebuie măsurată TimeEnd: = Time; GetTimeInterval (TimeBegin, TimeEnd); se încheie;
Această metodă cu siguranță nu se pretinde a fi prea originală, dar mult mai precisă decât un simplu cronometru Delphi. Dacă doriți, puteți să creați o clasă, să definiți proprietățile și metodele și să o utilizați.
Postări recente
Postări populare
