20.07.2012, 19:34
|
|
Начинающий
|
|
Регистрация: 09.11.2011
Адрес: Москва
Сообщения: 144
Версия Delphi: XE2
Репутация: 11216
|
|
Цитата:
Сообщение от stanilar
Тип списка какой?
Если TObjectList - то добавить к каждому объекту по таймеру, если не TObjectList - то сделать через TObjectList.
|
Обычная таблица:
Код:
var
ax:array[0..100,0..2] of integer;
a[11,0] - длительность задания
a[11,1] - секунда начала
a[11,2]:=a[11,1] +a[11,0] - секунда конца ( вычисляем заранее, чтобы не выполнять лишних операций)
Далее в событии онтаймер
for i:=1 to 100 do
begin
if a[i,2]= Текущая_секунда then
завершить
if a[i,2]= Текущая_секунда then
начать задание
end;
Минус в том что каждую секунду придется проверять все задания.
__________________
Помогаю платно.
Помогаю иногда бесплатно.
|