Delphi справочник - Форум программистов - Навигация  
 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      По первой букве  
System     SysUtils     StrUtils     DateUtils     FileCtrl     ConvUtils     StdConvs     Math     Classes     Dialogs     Types     Variants    ПО Unit   Compiler directives     Directives     Keywords     Types     Variables     Constants     Functions     Procedures    По категории  
Подписаться на рассылку:
Клуб программистов


Основы Delphi
RandSeed
Переменная
Устанавливает генератор случайного числа на следующее значение System unit
  var RandSeed : LongInt;
Описание
Переменная 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
 



© Блог программистов   |  Создание и продвижение сайтов - "Веб сателлит"  |  Ссылки  |     |  Английская версия