Необходимо разработать и реализовать в оо-классе интерфейс, т.е. использовать понятие интерфейса interface (нет в работе) и затем его реализовать (есть).
Также реализовать методы задания периода и интервала срабатывания, ввести событие пользователя на "тик".
Изначально задача состояла в следующем:
Разработать и реализовать в оо-классе интерфейс таймерного сервиса на основе Win32 функций QueryPerformanceCounter() и QueryPerformanceFrequency(). Интерфейс должен включать объявления методов для задания интервала срабатывания таймера (мс.), времени работы (мс.) и события на срабатывание.
Код:
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(). Интерфейс должен включать объявления методов для задания интервала срабатывания таймера (мс.), времени работы (мс.) и события на срабатывание.
