Цитата:
Сообщение от NumLock
должно, по идее...
|
За основу:
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 нельзя!