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
 



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