Облака / Clouds
    Go to Copy.com
    Copy.com
    The bast cloud service
    Get 20 GB free!!!
    Support WebDav.
    Show more >>

    Go to Dropbox.com
    Dropbox.com
    time-tested cloud storage
    Support WebDav.
Все бесплатно
    Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.



Вопросы
  Установить в программу свои шрифты
   Категория: Приложение
  Создание кнопки на панели в IE
   Категория: Интернет и Сети
  Как получить дату создания файла
   Категория: Файловая система
  Удалить файл в Корзину
   Категория: Приложение
  Фреймы
   Категория: Компоненты
  Показать удаленные записи в DBase
   Категория: Базы данных
  Компонент PopupMenu
   Категория: Компоненты
  Удаление файла в корзину
   Категория: Файловая система

Delphi - Справочник: RandSeed

ABCDEFGHIJKLMNOPQRSTUVWXYZ

  << Вернуться  

 RandSeed
var RandSeed : LongInt;
Переменная (Unit System)
Устанавливает генератор случайного числа на следующее значение
Описание:
Переменная RandSeed используется вместе с функцией Random. Она изменяет начальное число, которое использует Delphi для генерации случайного числа в диапазоне 232 псевдослучайных чисел.
Пример кода: Выполните этот код дважды, чтобы увидеть эффект RandSeed

var int : Integer; i : Integer; hours, mins, secs, milliSecs : Word; begin { Получение случайного числа, используя заданное по умолчанию случайное значение начального числа} ShowMessage('Первые 5 случайных фиксированных значений'); for i := 1 to 5 do begin int := 1 + Random(100); // Эти 100 значений дают диапазон 0..99 ShowMessage('int = '+IntToStr(int)); end; // Теперь изменяем случайное начальное число на значение миллисекунд // текущего времени DecodeTime(now, hours, mins, secs, milliSecs); ShowMessage(''); ShowMessage(''Установка randSeed значения : '+IntToStr(milliSecs)); ShowMessage(''); RandSeed := milliSecs; // Получение целого случайного числа в диапазоне 1..100 ShowMessage('Следующие 5 случайных значений'); for i := 1 to 5 do begin int := 1 + Random(100); // Эти 100 значений дают диапазон 0..99 ShowMessage('int = '+IntToStr(int)); end; end;

Результат:
Первые 5 случайных фиксированных значений
int = 1
int = 4
int = 87
int = 21
int = 28

Установка randSeed значения : 660

Следующие 5 случайных значений
int = 72
int = 62
int = 28
int = 63
int = 44

  << Вернуться