How to calculate elapsed time of a function?

delphi function time delphi-xe3
Hidden picture Hidden · Jun 7, 2013 · Viewed 25.3k times · Source

I would like to know how to calculate the time consumed for a function in Delphi.

Then I wanted to show the used time and compare it with another function or component so as to know the faster function.

Answer

David Heffernan picture David Heffernan · Jun 7, 2013

You can use TStopwatch from the System.Diagnostics unit to measure elapsed time using the system's high-resolution performance counter.

var
  Stopwatch: TStopwatch;
  Elapsed: TTimeSpan;
....
Stopwatch := TStopwatch.StartNew;
DoSomething;
Elapsed := Stopwatch.Elapsed;

To read a time value in seconds, say, from a time span, do this:

var
  Seconds: Double;
....
Seconds := Elapsed.TotalSeconds;

Related questions

Delphi - dynamically calling different functions

I have a treeview (VirtualTree) which has nodes. When a user clicks on a node, I need to run a specific function, passing the text name of the node. This function is one of the attributes of the node. For …

Read More
How to Pass Functions as Parameters in Procedures in Delphi?

Is it possible to pass an object function as a parameter in a procedure rather than passing the whole object? I have a record definition with a function defined as a public class parameter such as: TMyRecord = record public class …

Read More
Delphi callbacks?

I would like to know if it's possible to implement something like this: procedure waitandcall(time,@MyProcedureOrFunction) which execute the function or procedure I've created ? I'm not sure if they are called callbacks.

Read More