Delphi-Help

RandSeed

Печать
Рейтинг пользователей: / 0
ХудшийЛучший 

RandSeed

Описание

var RandSeed : LongInt;

Переменная RandSeed используется вместе с функцией Random. Она изменяет начальное число, которое использует Delphi для генерации случайного числа в диапазоне 232 псевдослучайных чисел.

Пример кода

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

Примечание

 

 

Авторизация



Счетчики