function Random ( LimitPlusOne : Integer ) : Integer;
delphi Код:
Пример кода :
// Получение целых случайных чисел в диапазоне 1..100
for i := 1 to 5 do
begin
int := 1 + Random(100); // Эти 100 значений дают диапазон 0..99
ShowMessage('int = '+IntToStr(int));
end;
end;
int = 68
int = 32
int = 17
int = 38
int = 43
Описание:
Функция Random генерирует случайные числа. Это могут быть числа с плавающей запятой числами в диапазоне:
0 <= Number <1.0
или целые числа в диапазоне:
0 <= Number
Delphi использует генератор псевдослучайных чисел, который, каждый раз, при выполнении программы возвращает одну и ту же последовательность значений (232).
Чтобы избегать этой предсказуемости, используйте процедуру Randomize. Она в качестве начального псевдослучайного значения устанавливает текущее время.
J-Fobos давал
хорошую ссылку на тему
Добавлено через 7 минут
Цитата:
Сообщение от dyh9l
в моем случае:
timer3.interval:=400+round(random(300));
Я правильно понимаю? Число надо рандомное от 400 до 700
И надо ли что-то указывать где-то в переменных?
|
Да, правильно.
Вот так я это значение изменяю
delphi Код:
//......................................
procedure OnTimer3(Sender: TObject);
begin
timer.enabled:=false; //остановим все таймеры
timer2.enabled:=false;
timer3.enabled:=false;
EditItemVal.text:=inttostr(sumitem(ItemID)); //всё время обновляем кол-во предметов
EditScrollVal.text:=inttostr(sumitem(ScrollID)); //всё время обновляем кол-во свитков
//рандомное время задержки между улучшениями
timer3.interval:=2000+round(random()*1000); //время задержки, не менее 2 секунд иначе банят!
RequestEnchantItem(ItemOID);
end;