|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#15
|
|||
|
|||
Цитата:
За основу: http://www.delphisources.ru/pages/so...generator.html Мой вариант: Код:
mass := [1000, -1000, 2000]; for i := 0 to Length(mass)-1 do begin if mass[i] > 0 then begin ServiceThread := TServiceThread.Create(False); sleep(mass[i]); ServiceThread.Terminate; end; if mass[i] < 0 then sleep(mass[i]); end; но использовать sleep нельзя! |