не совсем Random

[Аlex]

Добрый день..
Дело вот в чем мне нужно получить целое случайное число в диапазоне от 1 до 6. Если написать такую петрушку:"Randoom(6)" то эта фунция всегда возвращает 0 потому что число совсем маленькое.
И вообще Randoom не возвращает случайных чисел, а только псевдослучайные(типа всегда в определённой последовательности одни и те же числа)
Что-нить можно сделать для такой простой потребности

[Квэнди]

randomize инициализировали перед этим ?

[mihali4]

Не знаю, у меня вот так нормально выдает:
procedure TForm1.Button4Click(Sender: TObject);
begin
Edit1.Text:=IntToStr(Round(Random(6 )));
end;

Естественно, при запуске программы нужно сделать
Randomize;
как и указал модератор Квэнди.

[Аlex]

What is Randomize?
Прошу прощения за тупой вопрос, но я первый раз с этим столкнулся ((

[mihali4]

Randomize - это инициализация генератора случайных чисел.

[Аlex]

а как она делаеться?

[mihali4]

Сообщение от Аlex

а как она делаеться?

Посмотрите, в каком модуле она находится, откройте этот модуль и изучайте программную реализацию функции RANDOMIZE...

[Дамир]

begin
Randomize;
Edit1.Text:=IntToStr(Round(6*Random));
end;

[Virtson]

Random без Randomize выдает определенную последовательность для того, чтобы можно было проги отлаживать.

Randomize использует системное время ..
это как бы сдвиг последовательсти.

[Seqular]

Зачем Round(Random...)? Если Рандом с параметром, то она возвращает целое.