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

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

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

  Реклама:

 

RandomRange
Функция
Генерирует произвольное число в пределах введённого диапазона Math unit
  function RandomRange ( const RangeFrom, RangeTo : Integer ) : Integer;


Описание
Delphi функция RandomRange генерирует произвольное целое число ( integer ) в пределах диапазона RangeFrom и RangeTo.

Она обеспечивает более удобную версию функции Random модуля System.

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

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

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

 
Пример кода : Генерация случайных чисел в очень маленьком диапазоне
var
  i : Integer;
begin
  // Показ 5 случайных чисел в диапазоне от 652 до 656
  for i := 1 to 5 do
    ShowMessage('Случайное число : '+IntToStr(RandomRange(652, 656)));
end;
Случайное число = 652
Случайное число = 652
Случайное число = 655
Случайное число = 652
Случайное число = 653
 


Copyright © 2004-2018 Delphi Sources (источник – "DelphiBasics.ru")
 

Delphi XE8

Embarcadero® Delphi XE8 — это самое быстрое решение для разработки программного обеспечения, ускоряющее проектирование, программирование и создание взаимодействующих приложений для Windows, Mac, iOS, Android и IoT. Создавайте готовые решения корпоративного класса, включая в него разные клиентские native-платформы, мобильные расширения, интеллектуальные устройства, облачные службы, корпоративные и встроенные базы данных.


Группа ВКонтакте   Facebook   Ссылка на Twitter