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

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

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

Randomize
Процедура
Устанавливает генератор случайного числа на следующее значение System unit
  procedure Randomize ;

Delphi Sources

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

Randomize для этого повторного установления использует время дня как начальное значение, обеспечивая, таким образом, надежный метод создания непредсказуемой последовательности чисел, даже если они часть предопределенной последовательности.
Похожие команды
Random  Генерирует случайное целое число или число с плавающей запятой

RandomRange  Генерирует произвольное число в пределах введённого диапазона

RandSeed  Устанавливает генератор случайного числа на следующее значение

 
Пример кода : Выполните этот код дважды, чтобы видеть эффект Randomize
var
  int   : Integer;
  i     : Integer;

begin
  // Если Вы выполните эту программу дважды, гарантируется, что только
  // первые 5 значений randomize
  // снова установит в различную часть
  // псевдо случайной последовательности чисел.

  // Получение случайного целого числа в диапазоне 1..100
  ShowMessage('Первые 5 фиксированных чисел');
  for i := 1 to 5 do
  begin
    int := 1 + Random(100);    // Эти 100 значений дают диапазон 0..99
    ShowMessage('int = '+IntToStr(int));
  end;

  // Теперь, чтобы снова установить выполняем randomize
  Randomize;
  ShowMessage('');

  // Получение случайного целого числа в диапазоне 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

Следующие 5 случайных чисел
int = 35
int = 74
int = 45
int = 50
int = 31
 


Последние добавленные на сайт исходники

TDictionary Custom Sort

Fast Watermark Sources

3D Designer

Sik Screen Capture

Patch Maker

Айболит (remote control)

 

ListBox Drag & Drop

Доска для игры Реверси

Графические эффекты

Рисование по маске

Перетаскивание изображений

Canvas Drawing

 

Copyright © 2004-2024 "Delphi Sources" by BrokenByte Software (источник – "DelphiBasics")

Группа ВКонтакте