Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.11.13;
Скачать: CL | DM;

Вниз

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

 
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....  и как контролировать кол-во цифр после запятой?


 
Fenik ©   (2005-10-23 14:31) [6]

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



Страницы: 1 вся ветка

Текущий архив: 2005.11.13;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.032 c
2-1130232065
BaxTMaH
2005-10-25 13:21
2005.11.13
Объявление переменных


10-1107512444
sapsi
2005-02-04 13:20
2005.11.13
Поиск-замена в Word средствами делфи


3-1127989790
4ik
2005-09-29 14:29
2005.11.13
Проблемы с языковым драйвером под dBase и Paradox.


4-1124626634
Proger121
2005-08-21 16:17
2005.11.13
Программатор SEEPROM для серии 93Сxx


2-1129787778
andreyrid
2005-10-20 09:56
2005.11.13
Синхронная работа нескольких запросов ADOQuery