delphi - 如何让两个程序具有相同的随机数序列？

Question

两个应用程序(服务器和客户端)是否可以生成相同的随机数序列？我需要的是这样的:

在服务器上:

i1:=randomrange(10,50); //i1 will be 15
i2:=randomrange(10,50); //i2 will be 40
i3:=randomrange(10,50); //i3 will be 20

在客户端:

i1:=randomrange(10,50); //i1 will be 15
i2:=randomrange(10,50); //i2 will be 40
i3:=randomrange(10,50); //i3 will be 20

序列需要依赖于服务器计算并将其发送到客户端的值

Answer 1

事实上，随机数生成器通常是伪随机的。给定相同的初始状态，伪随机数生成器(PRNG)将生成相同的数字序列。

硫状态通常是通过种子提供的。如果您使用 RTL 提供的 PRNG，则可以通过将值分配给 RandSeed 来设置种子。 。在每个程序中使用相同的种子，您将生成相同的值。

如果您使用不同的 PRNG，请查阅其文档以了解如何为其播种。