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

[TwiX]

Вроде дней 5 назад тут была похожая тема, но не смог найти поиском =\

Добавлено:
Брать в начале функции сис время и в конце, а потом искать их разницу не предлагать Вроде была какая-то одна функция...

[Serge_Bliznykov]

Вроде была какая-то одна функция...

вроде бы не встречал такую..

Брать в начале функции сис время и в конце, а потом искать их разницу не предлагать

а это чем не нравится?

  GetSystemTime(st);
  TimeStart := (st.wHour * 3600000 + st.wMinute * 60000 +
                st.wSecond * 1000 + st.wMilliseconds);

<Тут Ваша функция>

  GetSystemTime(st);
// подсчитаем время
  TimeCur := (st.wHour * 3600000 + st.wMinute * 60000 +
                st.wSecond * 1000 + st.wMilliseconds);
  Memo1.Lines.Add('время расчёта функции XXXX = ' +
                   IntToStr(TimeCur - TimeStart) + ' мс.');

а ещё, если Вы озабочены повышением быстродействия,
то есть такие программы - Профайлер для Delphi

[TwiX]

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

а это чем не нравится?

  GetSystemTime(st);
  TimeStart := (st.wHour * 3600000 + st.wMinute * 60000 +
                st.wSecond * 1000 + st.wMilliseconds);
...
  Memo1.Lines.Add('время расчёта функции XXXX = ' +
                   IntToStr(TimeCur - TimeStart) + ' мс.');

Я просил не предлагать этот вариант не потому, что я сам не могу его написать

Чётко помню: кто-то создал похожую тему, как раз ответил, что надо или таймером или так, но следующий ответил одной функцией. Мне кажется она напоминала extractfilepath() =)

[W0LF]

Может GetTickCount() ?

[SNUPY]

Не мой код... взято отсюдова: http://www.hack-info.ru/showthread.php?t=53696

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

function GetCmdDiff: int64; stdcall;
var
t: int64;
begin
t := _RDTSC;
// здесь твоя функция
Result := (_RDTSC - t);
end;

[TwiX]

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

Может GetTickCount() ?

Да, именно то, что я искал)

[DomiNick]

Может лучше QueryPerformanceCounter?

[TwiX]

Вроде гетТикКаунт неплохо справляется =)
Про это можно поподробней?)