Процедура Randomize – встановлює генератор випадкового числа на наступне значення

Процедура Randomize в Delphi – встановлює генератор випадкового числа на наступне значення.

Процедура Randomize: Виконайте цей код двічі, щоб побачити ефект 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;