Время процедуры

[AngelOfDeath]

Как можно программно узнать сколько миллисекунд длилась процедура?
И записать в Label например

[N!ckeL]

Если процедура достаточно объёмная то можно с помощью таймера, хотя не совсем точно будет.

[eoln]

a := gettickcount;
процедура
b := gettickcount;
c := b-a; // в милисекундах

[B_N]

К методу от eoln можно ещё добавить метод QueryPerformanceFrequency/QueryPerformanceCounter
http://programmersforum.ru/showpost....3&postcount=10

т.е., если сократить:

//...................
	LARGE_INTEGER c1, c2, freq;
	double lapse;

	QueryPerformanceFrequency(&freq);

	QueryPerformanceCounter(&c1);
//........... здесь что-то происходит
	QueryPerformanceCounter(&c2);


	lapse = (c2.QuadPart - c1.QuadPart) / freq.QuadPart;	// <----- затраченое время
//.............

[AngelOfDeath]

Если несложно сделайте пример с исходником

[B_N]

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

Если несложно сделайте пример с исходником

Я же дал ссылку на рабочий пример, который ещё и частоту процессора в нагрузку показывает....

[AngelOfDeath]

Тогда вопросы:
1)Куда это всё запихнуть?
2)А разве это Delphi? Помоему это C++

[BOBAH13]

Интересно поставленные вопросы C++ ну для меня, он похож на дельфи как братья близнецы. Да тем более, там переводить то нечего. А куда запихнуть это уже интересно Откуда мы знаем где ваша процедура выполняется ?

[AngelOfDeath]

Откуда мы знаем где ваша процедура выполняется ?

Ну вот например:

procedure TForm1.Button1Click(Sender: TObject);
var I:Integer;
begin
I:=0;
while I<10000 do
begin
  i:=i+1;
  Button1.Caption:=IntToStr(I)
end;
end;

Куда тут пихнуть код?
И вывести время выполнения в Label

[AngelOfDeath]

Интересно поставленные вопросы C++ ну для меня, он похож на дельфи как братья близнецы. Да тем более, там переводить то нечего.

Я С++ вообще незнаю
А перевести там тем более ничего не смогу