Как реализовать счетчик миллисекунд с поддержкой часов, минут и секунд в Delphi

Delphi , Компоненты и Классы , TTimer

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

Проблема:

Стандартные типы данных Delphi, такие как TTime и TTimeStamp, а также системные таймеры, не всегда подходят для реализации такого счетчика. Необходим инструмент, позволяющий вручную устанавливать и увеличивать "время" интегратора, а также представлять его в формате ЧЧ:ММ:СС с возможностью работы с десятичными долями секунд.

Решение 1: Использование TTimeSpan

Как было предложено в обсуждении, тип TTimeSpan из модуля System.TimeSpan может быть подходящим решением. TTimeSpan предназначен для представления интервалов времени и предоставляет удобные свойства для работы с часами, минутами, секундами и миллисекундами.

uses
  System.TimeSpan;

var
  Counter: TTimeSpan;

begin
  // Инициализация счетчика
  Counter := TTimeSpan.Create(0, 0, 0, 0, 0); // 0 дней, 0 часов, 0 минут, 0 секунд, 0 миллисекунд

  // Увеличение счетчика на 100 миллисекунд
  Counter := Counter.Add(TTimeSpan.FromMilliseconds(100));

  // Получение значений
  ShowMessage('Часы: ' + IntToStr(Counter.Hours));
  ShowMessage('Минуты: ' + IntToStr(Counter.Minutes));
  ShowMessage('Секунды: ' + IntToStr(Counter.Seconds));
  ShowMessage('Миллисекунды: ' + IntToStr(Counter.Milliseconds));

  // Получение общего количества миллисекунд
  ShowMessage('Всего миллисекунд: ' + IntToStr(Counter.TotalMilliseconds));

  // Установка значения (пример)
  Counter := TTimeSpan.FromHours(500); // Устанавливаем значение в 500 часов
end;

TTimeSpan предоставляет множество полезных методов и свойств, таких как:

• Days, Hours, Minutes, Seconds, Milliseconds: для получения отдельных компонентов времени.
• TotalDays, TotalHours, TotalMinutes, TotalSeconds, TotalMilliseconds: для получения общего количества времени в соответствующих единицах.
• Add, Subtract: для добавления и вычитания интервалов времени.
• ToString: для форматированного вывода времени.
• FromDays, FromHours, FromMinutes, FromSeconds, FromMilliseconds: для создания TTimeSpan из заданных значений.

Решение 2: Использование UInt64 и ручная обработка

Другой подход - использование 64-битного целого числа (UInt64) для хранения количества миллисекунд и ручная реализация функций для преобразования этого значения в формат ЧЧ:ММ:СС.

var
  CounterMilliseconds: UInt64;

function FormatMillisecondsToHMS(Milliseconds: UInt64): string;
var
  Hours, Minutes, Seconds: UInt64;
begin
  Hours := Milliseconds div (60 * 60 * 1000);
  Milliseconds := Milliseconds mod (60 * 60 * 1000);
  Minutes := Milliseconds div (60 * 1000);
  Milliseconds := Milliseconds mod (60 * 1000);
  Seconds := Milliseconds div 1000;
  Milliseconds := Milliseconds mod 1000;

  Result := Format('%d:%2.2d:%2.2d.%3.3d', [Hours, Minutes, Seconds, Milliseconds]);
end;

begin
  CounterMilliseconds := 0;

  // Увеличение счетчика на 500 миллисекунд
  CounterMilliseconds := CounterMilliseconds + 500;

  // Вывод в формате ЧЧ:ММ:СС.МММ
  ShowMessage(FormatMillisecondsToHMS(CounterMilliseconds));

  // Установка значения (пример)
  CounterMilliseconds := 500 * 60 * 60 * 1000; // 500 часов в миллисекундах
end;

Альтернативное решение: Record Helper

Как было упомянуто в исходном обсуждении, можно создать Record Helper для типа Cardinal или UInt64, чтобы добавить функциональность работы с H-M-S. Это позволит инкапсулировать логику преобразования и форматирования внутри типа данных.

type
  TTimeCounter = record
  private
    FMilliseconds: UInt64;
  public
    constructor Create(Milliseconds: UInt64);
    function ToHMSString: string;
    property Milliseconds: UInt64 read FMilliseconds write FMilliseconds;
  end;

  TTimeCounterHelper = record helper for TTimeCounter
    function Hours: UInt64;
    function Minutes: UInt64;
    function Seconds: UInt64;
  end;

constructor TTimeCounter.Create(Milliseconds: UInt64);
begin
  FMilliseconds := Milliseconds;
end;

function TTimeCounter.ToHMSString: string;
var
  Hours, Minutes, Seconds, Millis: UInt64;
begin
  Hours := FMilliseconds div (60 * 60 * 1000);
  Millis := FMilliseconds mod (60 * 60 * 1000);
  Minutes := Millis div (60 * 1000);
  Millis := Millis mod (60 * 1000);
  Seconds := Millis div 1000;
  Millis := Millis mod 1000;

  Result := Format('%d:%2.2d:%2.2d.%3.3d', [Hours, Minutes, Seconds, Millis]);
end;

function TTimeCounterHelper.Hours: UInt64;
begin
  Result := Self.Milliseconds div (60 * 60 * 1000);
end;

function TTimeCounterHelper.Minutes: UInt64;
begin
  Result := (Self.Milliseconds mod (60 * 60 * 1000)) div (60 * 1000);
end;

function TTimeCounterHelper.Seconds: UInt64;
begin
  Result := ((Self.Milliseconds mod (60 * 60 * 1000)) mod (60 * 1000)) div 1000;
end;

var
  MyCounter: TTimeCounter;
begin
  MyCounter := TTimeCounter.Create(123456789);
  ShowMessage('HMS String: ' + MyCounter.ToHMSString);
  ShowMessage('Hours: ' + IntToStr(MyCounter.Hours));
  ShowMessage('Minutes: ' + IntToStr(MyCounter.Minutes));
  ShowMessage('Seconds: ' + IntToStr(MyCounter.Seconds));
end;

Выбор решения:

Выбор конкретного решения зависит от требований к точности, производительности и удобству использования.

• TTimeSpan предоставляет готовую функциональность и удобный API, но может потребовать больше ресурсов.
• UInt64 и ручная обработка обеспечивают максимальный контроль и могут быть более эффективными, но требуют больше усилий по реализации.
• Record Helper позволяет инкапсулировать логику и сделать код более читаемым и поддерживаемым.

В большинстве случаев, TTimeSpan будет оптимальным выбором благодаря своей простоте и функциональности. Однако, если важна максимальная производительность или требуется специфическая логика обработки времени, стоит рассмотреть другие варианты.

Создано по материалам из источника по ссылке.

Контекст описывает различные подходы к реализации счетчика миллисекунд в Delphi, поддерживающего отображение часов, минут и секунд, включая использование `TTimeSpan`, `UInt64` с ручной обработкой, и Record Helper.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: TTimer ::