таймер

Форум — Ответы ( К темам )

? cerber: таймер (25-12-2002 13:23:19)
Как вывести показания таймера TTimer на форму( надо засечь время, как долго будет обрабатываться серия однотипных запросов в приложении с компонентами Memo(для SQL-запроса), DBGrid,Query,Button).
Георгий (25-12-2002 14:53:51)

TTimer — визуальный компонент, который срабатывает с заданным интервалом времени. для измерения интервалов времени лучше использовать функци Now() и обьект TDateTime. например:
TDateTime BeginTime,EndTime,WorkTime;
BeginTime=Now();
//длительная обработка
...
//конец обработки
EndTime=Now();
WorkTime=EndTime-BeginTime;
Memo1->Lines->Add(WorkTime.DateTimeString());
в результате в Memo появится время работы куска кода.
Это то, что вам надо?

Andrew (25-12-2002 18:10:56)

Попробуй GetTickCount();
Возвращает количество милисекунд с момента запуска Win. В BCPPB Help'е есть на неё описание.

Засек время;
//Твой код
Засек время;
Вычислил разницу;

cerber (25-12-2002 23:00:29)

спасибо

?	cerber: таймер (25-12-2002 13:23:19)
Как вывести показания таймера TTimer на форму( надо засечь время, как долго будет обрабатываться серия однотипных запросов в приложении с компонентами Memo(для SQL-запроса), DBGrid,Query,Button).
Георгий (25-12-2002 14:53:51)
TTimer — визуальный компонент, который срабатывает с заданным интервалом времени. для измерения интервалов времени лучше использовать функци Now() и обьект TDateTime. например: TDateTime BeginTime,EndTime,WorkTime; BeginTime=Now(); //длительная обработка ... //конец обработки EndTime=Now(); WorkTime=EndTime-BeginTime; Memo1->Lines->Add(WorkTime.DateTimeString()); в результате в Memo появится время работы куска кода. Это то, что вам надо?
Andrew (25-12-2002 18:10:56)
Попробуй GetTickCount(); Возвращает количество милисекунд с момента запуска Win. В BCPPB Help'е есть на неё описание. Засек время; //Твой код Засек время; Вычислил разницу;
cerber (25-12-2002 23:00:29)
спасибо