Доброе время суток. Я почти дописал планировщик для своих нужд, но возникла проблема после прохождения таймера отведенного ему интервала времени мой проект грузит ЦПУ на 96-100%. Вот код события OnTimer:

Код

var NowDate,BDate: string; begin ClientDataSet1.First; While not ClientDataSet1.Eof do  begin  NowDate:= DateTimeToStr(now);  BDate:= DateTimeToStr(ClientDataSet1.FieldByName('DateTime').AsDateTime);  Delete (NowDate,length(NowDate)-2,2);  Delete (BDate,length(bdate)-2,2);  IF NowDate=Bdate then   begin   //здесь будет код который выполняется при наступлении времени указанного в планировщике.        ClientDataSet1.Delete;       end;  application.ProcessMessages;  end; end;

Как можно усыпить или приостановить таймер на некоторое кол-во секунд (только чтоб он останавливался и запускался автоматически)?

У меня данные хранятся в XML таблице. Я сначала думал сделать расписание на месяц, но потом передумал и думаю сделать, чтоб выполнялось ежедневно. И возникла проблема при переходе с месячного расписание на ежедневное:

Кнопка "Новая запись":
----------
ClientDataSet1.Insert;
----------

Кнопка "Зафиксировать":

Код

var full :  string; begin full:=maskedit1.Text; ClientDataSet1.FieldByName('DateTime').AsDateTime:= StrToDateTime(full); ClientDataSet1.Post; ClientDataSet1.SaveToFile('events.xml');

Я заношу в таблицу данные только время, но при наступлении этого времени ни чего не происходит, где я ошибся?

Это сообщение отредактировал(а) Girder - 31.8.2005, 14:16

приостановить можно Sleep() или таймер на интервал назначить

почему ничего не происходит -- посмотри сам ( дебагер на что дан? )

Вот в том-то и дело, что таймеру плевать на интервал, после того как таймер активируется и проходит заданный интервал, проект грузит CPU на 100% до наступления времени указанного в планировщике.

само-собой грузит. где у тебя переход на следующую запись?

У тебя просто цикл никогда не заканчивается.
И лучше было бы считать сначала списток времен срабатывания, а не дергать каждый раз базу.
Да и планировщик такого размера - довольно странное явление...