Как работает RandomRange?

[bakanaev]

Delphi XE3

for i:= 0 to 100 do
  begin
   Randomize;
    Memo2.Lines.Add(IntToStr(RandomRange(1,2)));
  end;

В итоге только единички. Так и должно быть? Или же все-таки и двоечки должны быть ?

[Serge_Bliznykov]

АААА!!!!
Во-первых, УБЕРИТЕ Randomize; из цикла!!
Эта процедура (иницилизация генератора псевдослучайных чисел) должна вызываться ОДИН раз (обычно при запуске программы!). Например, на событии onCreate главной формы..

во-вторых, если не устраивает работа функции, а нужны числа от [1, 2], то кто мешает написать:

for i:= 0 to 100 do
    Memo2.Lines.Add(IntToStr(Random(2)+1));

[bakanaev]

АААА!!!!

Не надо кричать

Во-первых, УБЕРИТЕ Randomize; из цикла!!
Эта процедура (иницилизация генератора псевдослучайных чисел) должна вызываться ОДИН раз (обычно при запуске программы!). Например, на событии onCreate главной формы..

Не знал, спасибо)

если не устраивает работа функции

Мне просто интересно, при желание я мог сделать

Memo2.Lines.Add(IntToStr(RandomRang e(1,3)));

Вы мне лучше скажите, при RandomRange(1,2) двойка не рассматривается как вариант ?

UPD.

УБЕРИТЕ Randomize; из цикла!!

А что будет если не убирать ?

[phomm]

http://docwiki.embarcadero.com/Libra...th.RandomRange
Читаем внимательно.

Для коллег замечу, что в справке дельфи7 стоит слово inclusive (дельфи2007 - уже non-inclusive) . Вот она обратная совместимость...
[sarcasm]а я так хотел написать самую азартную игру в мире на этой функции[/sarcasm]