Цитата:
Сообщение от anaschu
Добрый. У меня в программе около 20ти раз вызывается рандом. не охота для каждого случая писать вместо k:=random(2) , менять k:=1 и так везде.
Есть ли способ зафиксировать генератор для данной программы на одном числе?
|
Ну вынесите в отдельный метод.
Код:
function RndBool: Integer
begin
Result := Random(1);
end
И во всех ваших 20 раз, проверяйте результат метода.
Код:
if RndBool = 0 then
...
else ...;
Ну или что там у Вас стоит.