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

Автор:

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;

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

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

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

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

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

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