Как определить время работы процедуры или операции?

[Roof]

Меня интересует вопрос - как проверить время работы процедуры? Например, есть процедура - Button1.Click или Form1.Create. Как понять сколько времени эта процедура выполняется?
Или есть, например, цикл:

a:=0;
for i:= 0 to 100 do 
a:= a+1;

Как вывести его время работы?

[BOBAH13]

Сообщение от Roof

Меня интересует вопрос - как проверить время работы процедуры? Например, есть процедура - Button1.Click или Form1.Create. Как понять сколько времени эта процедура выполняется?
Или есть, например, цикл:

a:=0;
for i:= 0 to 100 do 
a:= a+1;

Как вывести его время работы?

сначала - k: DWord; k := GetTickCount;
... работа кода...
в конце время работы в мсек = GetTickCount - k; И конечно же разумеется, что это не точно, т.к. на присвоение и вычитание GetTickCount уйдет несколько тактов :D

[alexBlack]

Дополню.
Для маленьких процедур (как в примере) можно использовать RDTSC

function RDTSC: int64; assembler;
asm
  //RDTSC
  db $0F,$31 
end;

//...
begin
   T := RDTSC;

   a:=0;
   for i:= 0 to 100 do
   a:= a+1;

   writeln(RDTSC-T);

[ViktorXP]

QueryPerformanceFrequency()
QueryPerformanceCounter()

+F1

[rpy3uH]

если я не ошибаюсь, то функция QueryPerformanceCounter() как раз юзает инструкцию rdtsc

[ViktorXP]

да врятли.
1) там чето через sysenter выполняется(теслтилось на Vista, на 2000 и ниже этой инструкцыи нет). а это уже територия нулевого кольца и посмотреть токо через софт айс можно а его влом ставить. (а смысл запихать RDTSC в режим ядра никакого не вижу, посему делаю вывод что там чето другое. хотя.....)
2) результаты выдают разные

[Somebody]

Game Timing and Multicore Processors

Due to the limitations of RDTSC, the Windows API exposes the more correct way to access this functionality through the routines of QueryPerformanceCounter and QueryPerformanceFrequency. This use of RDTSC for timing suffers from three fundamental issues:
1. Discontinuous values. Using RDTSC directly assumes that the thread is always running on the same processor.
.......
2. Availability of dedicated hardware.
.......
3. Variability of the CPU's frequency.
.......

[Roof]

вопрос вобщем разъяснен. Спасибо.