Показать сообщение отдельно
  #6  
Старый 20.07.2012, 19:34
Аватар для @Rafa3L
@Rafa3L @Rafa3L вне форума
Начинающий
 
Регистрация: 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;

Минус в том что каждую секунду придется проверять все задания.
__________________
Помогаю платно.
Помогаю иногда бесплатно.
Ответить с цитированием