Вычислить затраченное время на какую-либо операцию

Автор: Борисов Сергей

Tweet

var
  _Begin, _End: TTimeStamp;
  Total: LongWord;
  x,i:integer;
begin
  {запоминается момент начала операции}
  _Begin := DateTimeToTimeStamp(Now);

  {Выполняем операции}
  For i:=0 to 9999999 do x:=Round(x*50 / 50);

  {запоминается момент окончания операции}
  _End := DateTimeToTimeStamp(Now);
  {Вычисляем затраченное время}
  Total := _End.Time - _Begin.Time;

  ShowMessage(IntToStr(Total));
end;

Результат выводится в милисекундах.

• Листовки срочно

  Справочная информация о городе. Оперативная цифровая полиграфия.

  polygrafia.biz

Просмотров: 1495

Обсудить на форуме

---

Имя *:
Email:
Все смайлы
Код *:

Copyright © 2008-2012 Программирование на Delphi для начинающих и не только

Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам

Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации

Хостинг от uCoz

Автор проекта: Борисов Сергей

e-mail: save-x@yandex.ru

Связь с администрацией сайта

Гостевая книга