необходимо засечь время выполнения части алгоритма

[Lord Lex]

В задаче необходимо собрать стат-данные по различным типам сортировки...
подскажите как засечь время выполнения ограничивающееся несколькими миллисекундами. (Delphi)

[Plague]

что вроде этого:

var t1,t2,t:double;
begin
  t1:=now;
  { код сортировки
  }
  t2:=now;
  t:=t2-t1;
  writeln(t);

[DomiNick]

Вот для Делфи:

Procedure TForm1.Button1Click(Sender: TObject);
Var i, iTick: Integer;
Begin
SetThreadPriority(GetCurrentThread, THREAD_PRIORITY_TIME_CRITICAL);
iTick:=GetTickCount;
For i:=0 To 100000 {или чего пострашнее} Do
    Begin
    //тут измеряемая функция
    End;
ShowMessage(IntToStr(GetTickCount-iTick));
SetThreadPriority(GetCurrentThread, THREAD_PRIORITY_NORMAL);
End;

Это будет время выполнения функции в миллисекундах...

[Lord Lex]

спасибо большое все это работает но... если не ставить "левых" операций в результате сортировки 500-элементного массива получаем результат 0 миллисекунд... есть ли возможность засечь еще более мелкий интервал времени???

[DomiNick]

Компьютер считает очень быстро... Поэтому измеряется цикл с функцией - как бы Ф*k (функция на коэффициент)...

Попробуй поставить в цикле

For i:=0 To 100000 {или чего пострашнее} Do

число "пострашнее"...

[Ulex]

Попробуйте вот эти WinApi-функции использовать вместо GetTickCount

QueryPerformanceCounter
QueryPerformanceFrequency

QueryPerformanceCounter- возвращает значение счётчика высокого разрешения.

QueryPerformanceFrequency - возвращает частоту счётчика высокого разрешения.

[Lord Lex]

спасиб... разобрался

[fabregas]

DomiNick, кто тебе дал право писать следующее:

SetThreadPriority(GetCurrentThread, THREAD_PRIORITY_TIME_CRITICAL);

Конечно недалекие разработчики в мелкософте дали такую возможность, но это не значит что этим можно пользоваться...

[Somebody]

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

DomiNick, кто тебе дал право писать следующее:

SetThreadPriority(GetCurrentThread, THREAD_PRIORITY_TIME_CRITICAL);

Конечно недалекие разработчики в мелкософте дали такую возможность, но это не значит что этим можно пользоваться...

Да, это нехорошо, но если это только временно, чтобы как можно точнее узнать время выполнения, то, по-моему, вполне допустимо (если потом вернуть обратно). Другое дело, что в данном случае, когда это выполняется меньше 1 мс, лучше просто перед этим сделать Sleep(1), чтобы контекст точно не переключился.
Вообще, если нужна статистика по времени сортировки, просто надо брать побольше массивы, чтобы подольше сортировались.

[DomiNick]

кто тебе дал право писать следующее

разработчики в мелкософте дали такую возможность

Ну они и дали "право"... А в чём собственно дело-то? Это разве запрещено?