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

← →
Andrewmx (2005-10-22 17:12) [0]

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

← →
AlexWlad © (2005-10-22 17:45) [1]

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

DWORD GetTickCount(VOID)

← →
Andrewmx (2005-10-22 17:46) [2]

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

← →
palva © (2005-10-22 18:26) [3]

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

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

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

← →
Antonn © (2005-10-22 18:41) [4]

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;

← →
Andrewmx (2005-10-23 13:42) [5]

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

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

Как измерить время выполнения фрагмента кода Найти похожие ветки