Код: Выделить всё
type
IHRTimer = interface
['{87ED4E58-83C0-40D2-9D56-3095B5F738E2}']
function StartTimer: Boolean;
function ReadTimer: Double;
procedure SetPeriod();
procedure SetInterval();
end;
THRTimer = class(IHRTimer, TInterfacedObject)
...
Изначально задача состояла в следующем:
Разработать и реализовать в оо-классе интерфейс таймерного сервиса на основе Win32 функций QueryPerformanceCounter() и QueryPerformanceFrequency(). Интерфейс должен включать объявления методов для задания интервала срабатывания таймера (мс.), времени работы (мс.) и события на срабатывание.