delphi利用系统时间产生随机数的函数


本文整理自网络,侵删。

 delphi利用系统时间产生随机数的函数
━━━━━━━━━━━━━━━━━━━━━━━━━━
一个利用系统时间产生随机数的程序,比系统的随机函数真实
function Myrandom(Num: Integer): integer;
var
T: _SystemTime;
X: integer;
I: integer;
begin
Result := 0;
GetSystemTime(T);
X := T.wDayOfWeek * T.wYear * T.wMilliseconds*T.wSecond * (random(Num)+1) + Random(1);
if X < 0 then X := -X;
X := Random(X);
if(num = 0) then Exit;
X := X mod num;
for I := 0 to X do //通过随机发生次数来控制产生不同的随机数
X := Random(Num);
Result := X;
end;

相关阅读 >>

Delphi 禁止关机的代码

Delphi removewhitespaces 过滤字符串所有空格

Delphi 7 简单语法

Delphi scrollbox1滚动框鼠标滚轮

Delphi让listbox实现即指即显功能

Delphi让tedit控件的内容居中或右对齐,限制位数,仅允许输入数字

Delphi json 转换成 tfdmemtable

Delphi 隐藏进程代码

Delphi 获取窗口矩形的四种方法: getclientrect、clientrect、getwindowrect、boundsrect

Delphi 创建新的messagebox窗口前,先关掉之前已经创建好的

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



打赏

取消

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

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

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

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

评论

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