Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > длительность работы программы

Автор: rubenhak 3.9.2004, 10:25

как узнать сколько времени работает программа в милисикундах?
пробую так но не работает.

Код


var
 Time1, Time2  : TTime;

begin
....
Time1 := Time;

myproc();

Time2 := Time;

Edit2.Text := DateTimeToStr(Time2-Time1);

Автор: <Spawn> 3.9.2004, 10:51

GetTickCount, если не нужна очень большая точность

Автор: Rennigth 3.9.2004, 10:52

Код


var
Time1, Time2  : TTime;

begin
....
Time1 := now; <--

myproc();

Time2 := now; <--

Edit2.Text := DateTimeToStr(Time2-Time1);

Автор: rubenhak 3.9.2004, 12:56

<Spawn> - точность нужна в милисекундах

Rennigth - получащю что-то вроде этого - '12/30/1899'

Добавлено @ 13:06
так заработало

Time1, Time2 : integer;
................

Time1 := GetTickCount;
my_proc;
Time2 := GetTickCount;

Edit2.Text := IntToStr(Time2-Time1);

Автор: decoder 3.9.2004, 16:47

Цитата

GetTickCount, если не нужна очень большая точность

+- несколько часов

(если камп больше месяца работает не выключаясь

)