čas vykonání procedury/funkce – Pascal – Fórum – Programujte.com

Zdravím,

zajímalo by mě jak nejpřesněji spočítat čas (milisekundy) vykonání nějaké procedury/funkce nebo nejlépe částí kódu. Našel jsem nějaké příklady, ale většinou nefunkční. Děkuji za pomoc.

Ahoj,

změříš čas před začátkem a po skončení a potom ty časy od sebe odečteš?

tuto sem našel, nezkoušel sem:

uses
  SysUtils,DateUtils;
var
  bt,et: TDateTime;
begin
  bt := TimeOf(Now);
  ... // do operation whose time you want to measure
  et := TimeOf(Now);
  WriteLn(MilliSecondSpan(bt,et):1:16);
end. 

Diky vyzkousim, nakonec jsem taky neco nasel, ale tohle vypada lip :)