Delphi randomize 随机数

本文整理自网络，侵删。

 最近做一个牌类游戏，采取了随机数来生成牌面，然后结果让人很是奇怪，结果出现了规律。不是没有采用randomize函数，以前知道这个函数是大概是根据本机的时钟等一系列的条件设置了下随机种子，于是在Sleep一个随机数。这样才没有了规律。不甘心，百度了下，发现确实是存在这个问题。所以推荐使用随机函数时这样用，特别是在一个循环里面生成n个随机数的时候（此时的规律很明显）

Function MyRandom(r:integer):Integer;

begin

randomize

sleep(random(10));

result:=random(r);

end;
 

相关阅读 >>

crc8unt.pas

Delphi 校验注册码时的技巧

Delphi使用tnethttpclient：重定向后如何给出最终的url？

Delphi环境下基于spcomm控件开发串口通讯报文字节丢失的问题解决

Delphi代码实现窗口最小化，最大化，关闭消息发送

Delphi 中拖动无边框窗口的5种方法

Delphi 标头控件（theadercontrol）中的显示复选框

Delphi http协议验证访问datasnap rest 服务器

Delphi遍历进程并获取进程路径

Delphi 图像自动调整显示

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi randomize 随机数