Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Общие вопросы > 3 таймера


Автор: eldorado 5.10.2004, 21:31
Народ, помогите, плиз.
У меня 3 таймера, интервал у каждого - 1 сек. Как мне их запустить таким образом, чтобы они друг друг "не мешали". Т.е. каждый из 3 процессов должен быть выполнен с интервалом в 1/3 сек.

Автор: Vit 5.10.2004, 22:22
1 таймер запустить с интервалом в 1/3 секунды, обозначить глобальную переменную типа integer, а в коде таймера написать:


Код
var i:integer

...

onTimer:

 inc(i);
 case i mod 3 do
   0: первое действие
   1: второе действие
   2: третье действие
 End;

Автор: eldorado 5.10.2004, 22:31
А разве интервал может быть нецелым?

Автор: eldorado 6.10.2004, 08:01
Виноват, проглючило.

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)