Задача: Сделать планировщик задач.
Используется: delphi2010 , sqlite, zeoslib, ehlib(DBGridEh).

Есть база


Очень напрягает опрашивать базу каждую секунду + когда база загружается в DBGridEh1, он скролится от первой записи к последний каждую секунду. 
Есть ли более человеческое решение данной задачи?   

Ниже 2 кода, одинакого по функционалу(как я понял), найдены на этом форуме ;)

код1


код2


Заранее спасибо
ЗЫ: До этого никогда не кодил и не открывал делфи   

Не понял зачем в первом коде переменная И

Добавлено через 5 минут и 15 секунд
По логике работы они в принципе одинаковые. Но первый вариант есть более лучшим (не в плане быстродействия).
По оптимизации могу сказать одно, отключи видимость передвижения курсора по записям  Во-первых глаза мозолить не будет, во-вторых быстродействие должно возрасти (хотя это чисто мое сугубое наблюдение)

Добавлено через 10 минут и 42 секунды
А еще в цикле не помешает application.processmessages программа не будет виснуть, особенно когда цикл

Это сообщение отредактировал(а) chip_and_dayl - 29.3.2010, 23:40

У писавших такой код - ошибки в ДНК. Если на каждой итерации цикла вычислять одно и то же - конечно будет тормозить.

В первом варианте TimeToStr(Now) вычисляется каждый раз - можно вне цикла однократно присвоить её результат локальной переменной, и потом пользоваться последней.
FieldByName('time') тоже ищется каждый раз. Вне цикла один раз найти и сохранить указатель на поле в  локальной переменной - при перемещении по строкам таблицы указатель останется актуальным.
Сравнение строк - как бы там тоже не возникало создания (через конструктор) и уничтожения "невидимых" строк (с Борланда станется...)

Второй вариант - на каждой итерации вычисляется DBGridEh1.DataSource.DataSet.RecordCount, каждая "точка" - это, считайте, вызов функции и возврат значения оттуда. Да и не для каждого формата баз данных RecordCount хранится в базе (в dbf-формате не хранится, в ранних версиях VCL тоже не определялся и потом не хранился - а каждый раз вычислялся заново как бы не прогоном до конца базы и обратно на текущую запись). Т.е. цикл от конца к началу крутить можно, а от начала к концу с постоянным опросом RecordCount - тормоза.
DBGridEh1.DataSource.DataSet.FieldByName - аналогично.
Ну и всё сказанное для первого варианта ко второму тоже применимо.

Конкретно по синтаксису улучшений тутошние паскалисты подскажут (я сишник).

Ну и сама архитектура приложения вызывает вопросы (насчет опроса базы каждую секунду) - это уже vrska пинок. При записи в базу (да и нафига база - обычный текстовый файл сойдет) сначала просто сортировать задания по времени, а потом ждать до наступления момента первого задания в списке (т.е. к базе не ходить, в локальной переменной дату-время держать), в момент же наступления события - делать, что нужно, после чего удалять первую запись и брать время следующей как ориентир для "пробуждения".

точность до секунд - лишнее, минуты за глаза,  храни время как TDateTime а не как строки.

VictorTsaregorodtsev, при таком варианте в один момент времени может быть выполнено только одно задание. А если автору нужно выполнять несколько заданий в несколько потоков в один момент времени?

если запуск файла запланирован в 12:00:00
проверка была в 11:59:50 и будет в 12:00:10, получается файл не запустится. я не прав? 

VictorTsaregorodtsev
Спасиба за конструктивную критику, это приветствуется.
На сколько я понял вы имели ввиду сделать так



т.е. присвоил TimeToStr(Now) переменную timenow, но разве она не вычисляется каждую секунду как было в коде до этого? timenow тоже стоит в процедуре таймера, который обновляется каждую секунду. Или я что то не понимаю.

Добавлено через 4 минуты и 13 секунд
Приветствуются конкретные примеры. Возможно кто то решит задачу за небольшое вознаграждение   

смотря как проверять будеш наличие задачи
проверяй раз в минуту с последнего времени проверки до конца текущей минуты
тогда не пропустиш

Добавлено @ 12:53
я делаю это вот так



хотя идея VictorTsaregorodtsev, мне тоже пнравилась возможно переделаю

Это сообщение отредактировал(а) Frees - 30.3.2010, 13:27

RoundDateTime - функция отбрасывает секунды