[poli-smen]

Сообщение от Van-89

К сожаление у меня довольно часто возникают проблемы с установкой диапазона((

В таком случае можно написать функцию-обёртку над стандартной функцией Random и пользоваться ею:

Код:

function Random2(A, B: Integer): Integer;
begin
  Result := A + Random(B - A + 1);
end;

Или например так:

Код:

function Random2(A, B: Integer): Integer;
begin
  Result := Min(A, B) + Random(Abs(A - B) + 1);
end;

И теперь если нужно получить случайные числа например от 27 до 621 то вместо:

Код:

x := 27 + Random(621 - 27 + 1);

Делаешь просто:

Код:

x := Random2(27, 621);

А при использовании второго варианта функции Random2 можно и так:

Код:

x := Random2(621, 27);