Delphi-Help

Описание

1 function Random : Extended;
2 function Random ( LimitPlusOne : Integer ) : Integer;

Функция Random генерирует случайные числа. Это могут быть числа с плавающей запятой числами в диапазоне:

0 <= Number <1.0

или целые числа в диапазоне:

0 <= Number

Delphi использует генератор псевдослучайных чисел, который, каждый раз, при выполнении программы возвращает одну и ту же последовательность значений (232).

Чтобы избегать этой предсказуемости, используйте процедуру Randomize. Она в качестве начального псевдослучайного значения устанавливает текущее время.

Пример кода

var
float : single;
int   : Integer;
i     : Integer;

begin
// Получение случайных чисел с плавающей запятой в диапазоне 0 <= number <1.0
for i := 1 to 5 do
begin
float := Random;
ShowMessage('float = '+FloatToStr(float));
end;

ShowMessage('');

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

float = 2.3283064365387E-10
float = 0.031379981256104
float = 0.861048460006714
float = 0.202580958604813
float = 0.2729212641716


int = 68
int = 32
int = 17
int = 38
int = 43

Примечание