Delphi randomize 随机数


本文整理自网络,侵删。

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

Function MyRandom(r:integer):Integer;

begin

randomize

sleep(random(10));

result:=random(r);

end;

相关阅读 >>

idtcpclient和idtcpclient 主要属性和方法

Delphi判断线程是否正在运行

Delphi 利用tcomm组件 spcomm 实现串行通信

Delphi的tservice 服务路径获取 dll中获取文件路径

Delphi 判断iso文件,iso文件头, iso filehead

Delphi汉字的拼音简码

Delphi stringgrid 实例4 本例功能: 1、给每个单元格赋值 2、调整当前单元格位置:上下左右;

Delphi获取系统特殊文件夹路径

Delphi xe5 android 开发实现手机打电话和发短信

Delphi 按esc快捷键退出程序的简单方法

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



打赏

取消

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

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

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

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

评论

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