使用kbmmw中的随机数替换delphi 10.3 自带的随机数

咱们在开发中常常会使用随机数模拟各类随机条件，例如生成惟一的密码和令牌。

在计算机中，通常采用PRNG(伪随机序列发生器)模拟真实随机数。既然是随机，就要要没有任何规律，

在取值范围内均匀、独立。以确保尽可能不重复。不然生成的密码和令牌碰撞的概率就很是大。

delphi自带的随机数函数，看似随机，实际上当产生次数足够多的话，就会发现重复性很是大，并且向中心域

集中。若是咱们用delphi自带的随机数生成一个区域的点，就会很方便的发现这个问题。

kbmmw 5.8里面 提供了好几种流行的随机数生成实现。例如PCG、 Mersenne Twister、SplitMix、Xoroshiro等。

甚至提供了几个利用CPU 自身功能生成伪随机数的函数。

咱们能够明显的看出来，这两个图中的点很是随机、均匀。所以，咱们在开发中尽可能使用kbmmw 提供的随机函数。

喜大普奔，delphi10.3 里面提供了可替换随机数生成的功能。

咱们能够很方便的让delphi 不用更改代码（或者没有代码的状况一下），就能够享受这些好的功能和算法。

首先，咱们作一个函数，固然记住要引用kbmMWRandom。

function xalionrandom32:UInt32;
begin result:= kbmMWRandom32.Random;

end;

而后在工程文件里面加上三行。

 Application.Initialize;
//加上这三行
  {$IF CompilerVersion >= 33}
     Random32Proc:= xalionrandom32;
  {$ENDIF}

ok, 咱们的程序就能够享受这个福利了。