| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как измерить время выполнения фрагмента кода [D7, WinXP]

Andrewmx ©   (2005-10-22 17:12:00) 

Как измерить время выполнения фрагмента кода??
Подскажите плз!

---

Fenik   (2005-10-23 14:31:00) [1]

D := 0.91011;
Caption := Format('%2.3F', [D]);

---

Andrewmx   (2005-10-23 13:42:00) [2]

А как еще сделать чтоб не в таком формате было   8,82323E-3
а в 0,000088....  и как контролировать кол-во цифр после запятой?

---

Antonn   (2005-10-22 18:41:00) [3]

procedure TForm1.Button2Click(Sender: TObject);
var
 Divisor   : Int64;
 T1        : Int64;
 i,X,ii       : integer;
 TotalTime : Extended;
begin
 if QueryPerformanceFrequency( Divisor ) then
 begin
    QueryPerformanceCounter( T1 );
    TotalTime := T1;

    //делаем дело...

    QueryPerformanceCounter( T1 );
    TotalTime := (T1 - TotalTime) / Divisor ;
    label2.caption:=floattostr(TotalTime); //вывод результата
 end;
end;

---

palva   (2005-10-22 18:26:00) [4]

Ну, типа, так:

var
 dw: DWord;
begin
 dw := GetTickCount;
// Измеряемый кусок
 WriteLn('Время счета: ', GetTickCount - dw);

Только точность небольшая (зависит от процессора). Лучше мерять куски в несколько секунд.

---

Andrewmx   (2005-10-22 17:46:00) [5]

А поподробнее если можно как это в коде написать :)

---

AlexWlad   (2005-10-22 17:45:00) [6]

The GetTickCount function retrieves the number of millisecondsthat have elapsed since Windows was started.

DWORD GetTickCount(VOID)

---

Наверх