delphi - 実際の乱数

Question

私はそのように0から20の乱数を取得しようとしています

RandomRange(0, 20)

そこに組み込まれているランダム関数を使用すると、プログラムが実行されるたびに同じ乱数が得られるため、それほどランダムではないソフトウェアがたくさんあることを知っています。RandomRangeはこのように動作しますか？私はプログラミングコンピュータの近くにいないのでテストできませんでした。Answerがyesの場合、どうすれば本当に乱数を取得できますか？

ありがとう

Answer 1

http://www.delphibasics.co.uk/RTL.asp?Name=Random

http://www.delphibasics.co.uk/RTL.asp?Name=Randomize

Randomizeコマンドは、現在の時刻に基づいて乱数ジェネレーターを再シードします。それで、「乱数」のまったく同じシーケンスを取得する唯一の方法は、プログラムをまったく同じ時刻に実行する場合です（通常、これらの種類の目的では、数分の1秒まで測定されます）。

編集：RandSeed（http://www.delphibasics.co.uk/RTL.asp?Name=RandSeed）を使用して、シードを自分で選択することもできます。これは、デバッグのために同じシーケンスを複数回テストする場合、または時刻以外のシードに基づいてランダム化する場合に役立ちます。