nDelta.ru
Техника, интернет, программное обеспечение, программирование
Связаться с владельцем сайта Email
  • Главная
  • Контакты
    • Обратная связь
    • О сайте
  • Архив
  • Рубрики
    • Гаджеты
    • Новости
    • От Автора
    • Софт
    • Хочу знать!
    • Интернет
  • Блог
Главная » Код » Delphi время
Delphi время

Delphi время

Опубликовано:КодНет комментариев

Иногда требуется измерить время выполнения каких либо операций (участков кода) в среде Delphi. Я использую для этого нехитрый прием. Скажу сразу что подсмотрел код у одного разработчика и адаптировал его под свои цели, а потом решил сделать универсальную процедуру, для использования в разных приложениях.

Прежде всего необходимо написать и объявить следующую функцию:

function GetTimeInterval(TimeBegin, TimeEnd: TDateTime): string; var hour, min, sec, msec: word; sh, sm, ss, sms: string; begin TimeBegin := TimeEnd - TimeBegin; DecodeTime(TimeBegin, hour, min, sec, msec); sh := IntToStr(hour); sm := IntToStr(Min); ss := IntToStr(Sec); sms := IntToStr(MSec); sh := copy('00', 1, 2 - length(sh)) + sh; sm := copy('00', 1, 2 - length(sm)) + sm; ss := copy('00', 1, 2 - length(ss)) + ss; sms := copy('000', 1, 3 - length(sms)) + sms; Result := sh + ':' + sm + ':' + ss + '.' + sms; end;

Теперь, в том месте кода, где нам необходимо начать измерение времени вставляем — TimeBegin := Time, а в том, где это измерение необходимо закончить — TimeEnd := Time. Да, в той процедуре или функции, где необходимо измерять время, нужно объявить две переменные — TimeBegin, TimeEnd: TDateTime.

Примерно так:

procedure Название_вашей_процедуры(Sender: TObject); var //определяем переменные для измерения времени TimeBegin, TimeEnd: TDateTime; begin TimeBegin := Time; //здесь код, время выполнения которого необходимо измерить TimeEnd := Time; GetTimeInterval(TimeBegin, TimeEnd); {вернет время в строковом формате, которое можно вывести на форму, сохранить итп. Формат вывода думаю без труда сможете настроить под себя} end;

Данный способ конечно не претендует на сверхоригинальность, но гораздо более точнее простого таймера Delphi. При желании можно создать класс, определить свойства и методы и пользоваться.


{lang: ‘ru’}

Последние сообщения

  • Delphi запросы MySQL.
    Delphi запросы MySQL.Сентябрь 15, 2015
  • Что такое VDS и VPS хостинг
    Что такое VDS и VPS хостингФевраль 18, 2015
  • Как сохранить данные в файл в Delphi.
    Как сохранить данные в файл в Delphi.Октябрь 29, 2014

Популярные сообщения

  • Как сделать root на Samsung Galaxy S3
    Как сделать root на Samsung Galaxy S3Март 27, 2013
  • Samsung Galaxy S3 тормозит !?
    Samsung Galaxy S3 тормозит !?Март 25, 2013
  • Сброс настроек Galaxy
    Сброс настроек GalaxyИюнь 7, 2012
← Delphi. Пример транзакции Firebird в Delphi.
Как бороться со спамом на WordPress →

Написать ответ

Нажмите, чтобы отменить ответ.

Добавить комментарий

Самое читаемое

  • Samsung Galaxy S3 тормозит !?
    Samsung Galaxy S3 тормозит !?
  • Сброс настроек Galaxy
    Сброс настроек Galaxy
  • Пульсометр Protouch Beat Pro 10
    Пульсометр Protouch Beat Pro 10
  • Android аккаунт
    Android аккаунт
  • Батарея Android, как продлить время работы
    Батарея Android, как продлить время работы

Рубрики

  • GalaxyS (4)
  • Гаджеты (4)
  • Интернет (7)
  • Код (4)
  • Новости (6)
  • От Автора (11)
  • Разное (1)
  • Софт (19)
  • Хочу знать! (12)

Свежие комментарии

  • Аля Гончарова к записи Что такое VDS и VPS хостинг
  • Kladr Gnivc к записи Delphi. Пример транзакции Firebird в Delphi.
  • Екатерина к записи Android аккаунт
  • Александр к записи Пульсометр Protouch Beat Pro 10
  • Виталий к записи Пульсометр Protouch Beat Pro 10

Рубрики

  • GalaxyS (4)
  • Гаджеты (4)
  • Интернет (7)
  • Код (4)
  • Новости (6)
  • От Автора (11)
  • Разное (1)
  • Софт (19)
  • Хочу знать! (12)

Услуги

Написание авторских текстов

Копирайт

Рерайт

Услуги корректора

Сайт-визитка

Анализ сайта

Контактная информация

Mail: info(собака)ndelta.ru

Анализ сайта

Практические рекомендации по повышению юзабилити сайта, улучшения его видимости поисковыми системами. Анализ ссылочной массы, семантического ядра, конкурентов. Расчет бюджета на поисковое продвижение сайта. Предоставление отчета в любом удобном формате.
© 2011 - 2018 nDelta.ru Копирование материалов сайта возможно только с указанием ссылки - ndelta.ru