Вопрос по Random

[py6jlb]

Товарищи подскажите! Есть код

begin
B:=random(6);
if (B=0) then (sLabel1.Caption:= '        ДА');
if (B=1) then (sLabel1.Caption:= '        НЕТ');
if (B=2) then (sLabel1.Caption:= '    Многовероятно');
if (B=3) then (sLabel1.Caption:= '    Маловероятно');
if (B=4) then (sLabel1.Caption:= 'Затрудняюсь ответить');
if (B=5) then (sLabel1.Caption:= '   Спроси позднее');

Так вот при выполнеи его первое значение random получаеться равным "0", как сделать так чтоб значения были более рандомные, или заставить рандом повториться несколько раз а только потом выдавать значение! заранее спасибо!

[Вадим Мошев]

Перед вызовом рандома вам надо инициализировать генератор случайных чисел.
Для этого просто напишите к коде:

Randomize;

то есть написать

begin
Randomize;
B:=random(6);
if (B=0) then (sLabel1.Caption:= '        ДА');
if (B=1) then (sLabel1.Caption:= '        НЕТ');
if (B=2) then (sLabel1.Caption:= '    Многовероятно');
if (B=3) then (sLabel1.Caption:= '    Маловероятно');
if (B=4) then (sLabel1.Caption:= 'Затрудняюсь ответить');
if (B=5) then (sLabel1.Caption:= '   Спроси позднее');

[py6jlb]

Randomize иницализирован при создании формы, я прост забыл указать! то есть если несколько запускать random то числа получаються случайными но первое всегда "0", поэтому и нужно несколько раз выполнить рандом.

[Человек_Борща]

модключите Math модуль и там будет RandomRange

[FaTaL]

И в Вашем случае лучше пользоваться case чем столько много if then

[Вадим Мошев]

То есть, это будет записано как:

Case B of
0: Действие1;
1: Действие2;
.....
end;