ドキュメントから:
ループ内のRandomizeの呼び出しとRandom関数の呼び出しを組み合わせないでください。通常、Randomizeは、Randomを呼び出す前に、一度だけ呼び出されます。
(私による「一度だけ」の強調表示)
ベストプラクティスの質問:
Delphiライブラリがを使用する場合、Random
の初期化呼び出しの要件のみを文書Randomize
化し、Randomizeの呼び出しをライブラリのユーザーに任せる必要がありますか?
または、ライブラリが初期化を処理する必要があります。
if System.RandSeed = 0 then Randomize;