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

[Wind1]

Стандартный таймер Delphi - минмальный период примерно 55мс. Тут либо API таймер винды, либо гораздо удобнее таймеры от Jedi (точность 1 мс), в разнообразных вариантах. "Вообще рекомендую" (простите за рекламу) эту "библиотеку" - мощная, опенсорс, малоглючная и т.д.

[XE5]

Какие на фиг миллисекунды??? Из топика видно, что это очередной будильник. А теперь поднимите руки, кому нужно, чтоб будильник сработал с точностью до миллисекунд??? В примерах выше не были учтены секунды, и код бы не сработал НИКОГДА, вот я и дал другой вариант. Хошь с точностью до минуты, хошь, до секунды. Спор возник, потому что топикстартер уточнил, что таймер работает раз в минуту, а Streletz забыл упомянуть, что его код должен работать раз в секунду. Кто виноват?
P.S. Лично я бы в подобной задаче использовал поток без таймера.

[Ahton]

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

Кто нибудь проверял утечки памяти? У меня strtotime утекает на Delphi 7 и на delphi 2010.

XE5 - можете показать пример реализации потока без таймера? Я начинающий, очень интересно увидеть реализацию без компонента "таймер"

[Streletz]

to Ahton

можете показать пример реализации потока без таймера? Я начинающий, очень интересно увидеть реализацию без компонента "таймер"

Примеров реализации с использованием потоков в сети довольно много.
Вот сразу несколько из них: Как заменить sleep в потоке чтобы получить задержку 5 милисекунд.

программа нужна для своих нужд по работе, для генерирования расписаний для программы вещания.

В точности до мс здесь, пожалуй, действительно нет необходимости. Хотя погрешность +/-1 минута в сетке вещания могут заметить (ИМХО).

У меня strtotime утекает на Delphi 7 и на delphi 2010

Код в студию!
to XE5

Лично я бы в подобной задаче использовал поток без таймера.

И, что это даст? При интервале порядка 60000 это даст такую же погрешность, что и приведённый вариант с FormatDateTime('hh:mm', Time)

Хошь с точностью до минуты, хошь, до секунды

Что бы получить точность 1 сек нужно

if FormatDateTime('hh:mm:ss', Time) = change_time then
begin
Timer1.Enabled := false;
showmessage('test');
end;

Без обид, но об этом выше как-то не упомянуто...

Кто виноват?

1 из 2х "вечных" вопросов. И, такжеже без обид, 1 из столь же "вечных" тем для холивара. Только раздел не для этого, да и холиварить здесь в общем-то и не о чем.

[XE5]

При интервале порядка 60000 это даст такую же погрешность

Какой интервал в потоке? Не понимаешь о чём речь, лучше промолчи.

[northener]

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

можете показать пример реализации потока без таймера? Я начинающий, очень интересно увидеть реализацию без компонента "таймер"

Пока лучше тебе на эти примеры не смотреть. Пока не сможешь понять их вредоносную сущность.

[XE5]

вредоносную сущность

Потоки вредны? Не не слышали. В пакете инди есть замечательный контрол IdThreadComponent, который значительно упрощает создание потоков. Вот код простого будильника без таймеров.

procedure TForm1.FormCreate(Sender: TObject);
begin
  IdThreadComponent1.Start; // запустили поток
end;

procedure TForm1.IdThreadComponent1Run(Sender: TIdThreadComponent);
begin
  if TimeToStr(Time) = '23:41:05' then
    begin
      IdThreadComponent1.Stop; // остановили поток
      ShowMessage('Время');
    end;
  sleep(1000); // ждём секунду
end;

Работает с точностью до секунды.

[northener]

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

Потоки вредны?

Да вредны. Если они всего лишь дополнительная сущность позволяющая не думать головой. Про пакет Инди лучше мне и не напоминай. Этот продукт "троешников по натуре своей" оказался встроенным в Дельфи только по причине лени и жлобства борландовцев и их приемников.

[Streletz]

замечательный контрол IdThreadComponent

Пока не встаёт вопрос, например, о синхронизации...
northener, прав. Лишний раз поток делать не стоит особенно, на основе Indy.

[XE5]

Пока не встаёт вопрос, например, о синхронизации...

До конца дочитайте.

Лишний раз поток делать не стоит

Тогда и процессоры многоядерные покупать не стоит.

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

Про пакет Инди лучше мне и не напоминай.

А я и не тебе написал, а топикстартеру в ответ на просьбу показать пример потока. Просто я по твоему сообщению увидел просьбу.