Delphi randomize 随机数


本文整理自网络,侵删。

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

Function MyRandom(r:integer):Integer;

begin

randomize

sleep(random(10));

result:=random(r);

end;

相关阅读 >>

Delphi获取系统字体列表

Delphi著名皮肤控件库大全评测

Delphi打开外部程序或文件

Delphi-adoquery查询、插入、删除、修改

Delphi 资源管理器套件

Delphi之如何快速开发原生activex控件

Delphi paramstr 获取外部参数

Delphi程序将自身可执行文件拷贝到u盘的代码

Delphi怎么样选择pagecontrol1的分页

Delphi 比较两个日期是否大于n天

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...