DELHI. Таймер ...

[Осипович]

Задача: нужно засечь время действия двух разных процедур ... Выдать сообщение которая з двух быстрее обчислит задачу ... Извините за плохой Русский ...

[Maxs]

Используй мультимедиа таймер: http://www.z-oleg.com/delphi/systimer.htm. Поставь его на 1мс. Перед вызовом каждой процедуры запусти таймер, в нем считай сколько раз он прошелся (t=t+1), после вызова процедуры убей таймер: timeKillEvent(MMTimer1);

[Serge_Bliznykov]

есть много способов.
Например, так:

var
  st : TSYSTEMTIME;
  TimeCur, TimeStart : integer;

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

<тут процедура1 >

  GetSystemTime(st);
  TimeCur := (st.wHour * 3600000 + st.wMinute * 60000 +
                st.wSecond * 1000 + st.wMilliseconds);
  Memo1.Lines.Add('время выполнения процедуры1 = ' +
                   IntToStr(TimeCur - TimeStart) + ' мс.');

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

<Процедура 2>

  GetSystemTime(st);
  TimeCur := (st.wHour * 3600000 + st.wMinute * 60000 +
                st.wSecond * 1000 + st.wMilliseconds);
  Memo1.Lines.Add('время выполнения процедуры1 = ' +
                   IntToStr(TimeCur - TimeStart) + ' мс.');

[Осипович]

Ребята спасибо !!! =)