Как можнО засечь промежуток времени, которое проработала функция

[DarkEvil]

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

[mihali4]

Вот эту тему почитайте, начиная с седьмого поста - про "тики" процессора...
http://www.programmersforum.ru/showthread.php?t=12132

[DarkEvil]

Еще раз спасибо)

[DeKot]

Вот Вам простенькая программка, измеряющая время выполнения цикла While с применением функции FormatDateTime.В Edit вводите число, задающее время цикла в сек. и жмем "Пуск". Дальше все будет понятно. И еще, в коде поиграйтесь с параметром процедуры Sleep(). Ну и эта строчка программы интересна :

set_data:= trunc(((StrToFloat(Edit1.Text))*64) / 2);

Думаю комментарии излишни для нее, все зависит от "железа".

[mihali4]

То DarkEvil
Не вздумайте использовать Sleep - она приостанавливает выполнение задачи и результат ваших измерений будет непредсказуемым...

[DeKot]

Не вздумайте использовать Sleep

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

[DarkEvil]

Все верно Sleep() приостанавливает задачу, оно мне не подходит.
мне нужно что-то вроде этого:

a = GetCurTimeStamp();
Моя процедура
b = GetCurTimeStamp();
all = b - a;

В даном случае Sleep используется как измеряемый элемент - вставлен в тело цикла для получения видимой задержки времени исполнения цикла

Вод задержка как раз мне и не нужна, у меня есть две функции одна написана на api+asm вторая на дельфи
вот мне и интересно зря ли я переводил код на Апи

[DeKot]

Прочитайте внимательно предыдущий пост (#6)

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form1.Canvas.TextOut(24,100,'Пуск (начало цикла) -   ' + FormatDateTime('n',Now) + '  ' + FormatDateTime('s',Now)+ '  ' + FormatDateTime('zzz',Now));
  Label1.Caption:= FormatDateTime('s',Now)+FormatDateTime('zzz',Now);
  data1:= StrToInt(Label1.Caption);
 
// вызывайте здесь свою функцию, которую хотите измерить

  Label2.Caption:= 'Стоп (конец цикла) -  ' + FormatDateTime('n',Now) + '  ' + FormatDateTime('s',Now)+ '  ' + FormatDateTime('zzz',Now);
 // count:= 0;
  Label3.Caption:= FormatDateTime('s',Now)+FormatDateTime('zzz',Now);
  data2:= StrToInt(Label3.Caption);
  Label4.Caption:= ' Время выполнения цикла -  ' + IntToStr(data2 - data1) + '    мсек';
end;

Cлово "цикл" в коде замените на "функция".

[VladimirVB]

Попробуйте так.

procedure TForm1.RunTest;
begin
  Memo1.Lines.Add(FormatDateTime('dd.mm.yyyy hh:nn:ss.zzz', Now) + ' Start');
.
.
.
  Memo1.Lines.Add(FormatDateTime('dd.mm.yyyy hh:nn:ss.zzz', Now) + ' done.');
end;

[TwiX]

Самое легкое и практичное, на мой взгляд: GetTickCount();
Берём в начала, в конце, а время выполнения - разность (мс)