Справочник функций и процедур Delphi: RandSeed

  Навигация по первой букве:

A  B  C  D  E  F  G  H  I  J  K  L  M  N  O  P  Q  R  S  T  U  V  W  X  Y  Z

  Навигация по категории:

Compiler directives, Directives, Keywords / Types, Variables, Constants / Functions, Procedures

  Реклама:

 

RandSeed
Переменная
Устанавливает генератор случайного числа на следующее значение System unit
  var RandSeed : LongInt;

Google  
 
Описание
Переменная 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
 


Copyright © 2004-2016 Delphi Sources (источник – "DelphiBasics.ru")
 


Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook