Задержка от и до в секундах, как?

[FleXik]

Как сделать задержку в секундах от и до используя Sleep();?
Например от 1 до 6 секунд, и задержка должна быть рандомной от 1 до 6 секунд.

[Stilet]

sleep(1000+random(5000));

[FleXik]

var
i, k:integer;
begin
i:=Form1.sSpinEdit1.Value;
k:=Form1.sSpinEdit2.Value;
Sleep(i + Random(k)*1000);
end;

Вот, намутил, может кому-то понадобится

[Пепел Феникса]

Sleep((i + Random(k-i+1))*1000);

как то так тогда.
выдаст задержку от i до k секунд.

[FleXik]

Сообщение от Пепел Феникса

Sleep((i + Random(k-i+1))*1000);

как то так тогда.
выдаст задержку от i до k секунд.

а вот теперь правильно, какраз хотел написать, спасибо =)

[Stertor]

Использовать sleep в потоке формы абсолютно недопустимо, потому, что форма зависнет )

[Человек_Борща]

Использовать sleep в потоке формы абсолютно недопустимо, потому, что форма зависнет )

+1.

Тс, в модуле Math существует функция RandomRange(от тут, до там).

[саша40]

Ребята, вы что напились все?

sleep(random(6) * 1000);

[Stertor]

Ребята, вы что напились все?

Не надо хамить. Возьми в руки справочник по WinApi и посмотри, как работает Sleep.
А работает она следующим образом: поток, вызвавший эту процедуру, тормозится на указанное время в (мс). Это значит, что ни обработка сообщений формы,ни перерисовка и тп. выполняться НЕ будут. Если приложение однопоточное оно зависнет на random(6) * 1000 сек.

[Вадим Мошев]

Сообщение от саша40

Ребята, вы что напились все?

sleep(random(6) * 1000);

В таком случае будет задержка от 0 до 5 секунд. Тогда уж так:

sleep((1+random(6)) * 1000);