Разместите нашу кнопку!

Новые статьи:

Programming articles

Создание сайтов на шаблонах

Множество вариантов работы с графикой на канве

Шифруем файл с помощью другого файла

Перехват API функций - Основы

Как сделать действительно хороший сайт

Создание почтового клиента в Delphi 7

Применение паскаля для решения геометрических задач

Управление windows с помощью Delphi

Создание wap сайта

Операционная система unix, термины и понятия

SQL враг или друг

Возникновение и первая редакция ОС UNIX

Оптимизация проекта в Delphi

Ресурсы, зачем нужны ресурсы

Термины программистов 20 века

Советы по созданию собственного сайта с нуля

Шифруем файл с помощью пароля

Фракталы - геометрия природы

Crypt - Delphi программа для шифрования

Рассылка, зачем она нужна и как ее организовать?

Учебник по C++ для начинающих программистов

Уроки для изучения ассемблера

Загадочный тип PCHAR

Средства по созданию сайтов

Операторы преобразования классов is и as

Borland Developer studio 2006. Всё в одном

Создание базы данных в Delphi, без сторонних БД


Software engineering articles



RandomRange

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

|| function RandomRange ( const RangeFrom, RangeTo : Integer ) : Integer;

Описание:

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

     Это обеспечивает более удобное использование возможности Random функции System юнит.

     Также как и в функции Random используется псевдо произвольная последовательность чисел из 232 величин.

Пример кода:

var
   i : Integer;
begin
   // Show 5 random numbers in the range 652 to 656
   for i := 1 to 5 do
     ShowMessage('Random number : '+IntToStr(RandomRange(652, 656)));
end;

Результат выполнения:

Random number = 652
Random number = 652
Random number = 655
Random number = 652
Random number = 653