| Описание |
|
Переменная RandSeed используется вместе с функцией Random. Она изменяет начальное число, которое использует Delphi для генерации случайного числа в диапазоне 232 псевдослучайных чисел.
|
|
| Похожие команды |
Random Генерирует случайное целое число или число с плавающей запятой
Randomize Устанавливает генератор случайного числа на следующее значение
RandomRange Генерирует произвольное число в пределах введённого диапазона
| |
|
| Пример кода : Выполните этот код дважды, чтобы увидеть эффект RandSeed |
var
int : Integer;
i : Integer;
hours, mins, secs, milliSecs : Word;
begin
{ Получение случайного числа, используя заданное по умолчанию случайное значение начального числа}
ShowMessage('Первые 5 случайных фиксированных значений');
for i := 1 to 5 do
begin
int := 1 + Random(100); // Эти 100 значений дают диапазон 0..99
ShowMessage('int = '+IntToStr(int));
end;
// Теперь изменяем случайное начальное число на значение миллисекунд
// текущего времени
DecodeTime(now, hours, mins, secs, milliSecs);
ShowMessage('');
ShowMessage(''Установка randSeed значения : '+IntToStr(milliSecs));
ShowMessage('');
RandSeed := milliSecs;
// Получение целого случайного числа в диапазоне 1..100
ShowMessage('Следующие 5 случайных значений');
for i := 1 to 5 do
begin
int := 1 + Random(100); // Эти 100 значений дают диапазон 0..99
ShowMessage('int = '+IntToStr(int));
end;
end;
|
Первые 5 случайных фиксированных значений
int = 1
int = 4
int = 87
int = 21
int = 28
Установка randSeed значения : 660
Следующие 5 случайных значений
int = 72
int = 62
int = 28
int = 63
int = 44
|
|
