delphi - 答えが 1 つの乱数

Question

私はこのコードを持っています

label1.Caption:= 'Number is:' + inttostr(random(2) + 1);

しかし、その結果、毎回「1」になります。私が間違ったことを説明できますか？

Answer 1

乱数ジェネレーターを初期化するRandomizeには、random 関数を使用する前にメソッドを呼び出す必要があります。