Выполнение действия в определенное время (утечки памяти)

[Ahton]

Здравствуйте! помогите решить проблему пожалуйста. Вот код для примера:

var
current_time: TDateTime;
change_time: string;
begin
current_time := time();
change_time := ('11:00:00');
if timetostr(current_time) = change_time then
showmessage('test');
end;

Вставляю код в таймер, ставлю интервал у таймера - минуту (60000), переменную change_time выставляю на 5 минут больше текущего времени, запускаю прогу, открываю диспетчер задач, смотрю на потребление памяти. При старте у меня 2944КБ потребление, через минуту 2952КБ и т.д. по возрастающей (+8 КБ). За сутки работы этого кода, размер потребления памяти по диспетчера задач увеличился с 3 до 9 МБ

Ставлю Timer1.Enabled := false; - потребление памяти не увеличивается ни на байт.

проблема в функции timetostr - она не высвобождает память.

Есть какой то вариант запуска определенного действия если наступило определенное время?
Условие: программа должны быть постоянно запущена, стандартный виндовый планировщик не нужен, важно именно запуск из программы в нужное время определенного действия.

[Streletz]

Зачем хранить change_time в string и зачем дополнительная переменная для текущего времени?

if CompareTime(change_time,time)=-1 then
showmessage('test');

А, для задания времени срабатывания, если Вы его задаёте программно, достаточно при запуске таймера сделать следующее:

change_time := strtotime('11:00:00');
Timer1.Enabled:=true;

И будет Вам счастье.

[northener]

Сообщение от Streletz

if time() = change_time then
showmessage('test');

А, для задания времени срабатывания, если Вы его задаёте программно, достаточно при запуске таймера сделать следующее:

change_time := strtotime('11:00:00');
Timer1.Enabled:=true;

И будет Вам счастье.

Не будет ему счастья. Условие time() = change_time практически никогда не выполнится.

[XE5]

var
  Form1: TForm1;
  change_time: string = '12:30';
implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if FormatDateTime('hh:mm', Time) = change_time then
  begin
    Timer1.Enabled := false;
    showmessage('test');
  end;
end;

Проверил, память не кушает. Изложенный выше код работать не будет, так как по истечении каждых 60 секунд не факт, что на системных часах будет 00 секунд. В предложенном мной коде таймер можно выставить на одну секунду, либо 60 секунд без переключения Enabled

[Streletz]

не факт, что на системных часах будет 00 секунд

Это с учётом каких долей секунды? Работу кода с CompareTime я проверял. Работает нормально.
А, что касается вариантов реализации с приведением типа при каждой обработке OnTime или однократном, то пусть ТС сам выбирает то, что подходит лично ему.

[XE5]

Streletz При чём тут доли? Обработчик OnTime будет работать раз в 60 секунд. Если таймер запущен в 12.00.05, то он будет срабатывать каждую минуту плюс пять секунд, и условие совпадения времени ни когда не выполнится (13.00.05 <> 13.00.00).

[Streletz]

Обработчик OnTime будет работать раз в 60 секунд. Если таймер запущен в 12.00.05, то он будет срабатывать каждую минуту плюс пять секунд,

Всё с одной стороны правильно. Только, когда речь идёт о такой точности , то имеет ли смысл делать интервал срабатывания события таким большим?
Если таймер запущен в 12:00:05, то погрешность будет всего 5 секунд. А, если он запущен в 12:00:52? Как это ни странно, но FormatDateTime отбрасывает секунды, по сути, округляя значение в меньшую сторону. Поэтому, в данном случае, погрешность срабатывания события составит почти минуту. Что, во многих ситуациях, не совсем хорошо.
Конечно, многое здесь зависит от того, какая точность срабатывания нужна. Если достаточно точности +/- 1 минута, то Ваш вариант безусловно лучше. Но, если событие должно отработать ровно в 13:00:00, то тогда имеет смысл уменьшить интервал и перейти к условию совпадения времени. Всё имеет как достоинства, так и недостатки. Поэтому, одно лучше работает при одних условиях, а другое лучше работает при других. Поэтому, спорить о том какой именно вариант лучше, по меньшей мере бессмысленно.
Ещё, раз повторюсь, что конкретный выбор зависит от специфики задачи. Знает её только ТС. Ему и выбирать из предложенных вариантов наиболее подходящий.

[Аватар]

Не понимаю стремления к точному сравнению времени. Почему бы не запомнить время срабатывания в формате TDateTime и в таймере сравнивать текущее время с ним на больше или равно. Сработает для любых интервалов таймера. По поводу утечек памяти для TimeToStr сильно сомневаюсь, очень сильно. Хотя все может быть, нужно протестировать код от ТС

[Streletz]

Не понимаю стремления к точному сравнению времени.

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

[Аватар]

При чем здесь специфика? При любом способе сравнения точно никогда не сработает. А специфика задачи - просто чего-то сделать в заданное время. Точность управляется только интервалом таймера