本文整理自网络，侵删。
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 tactionlist方案)
Delphi tms web core twebhttprequest使用
Delphi 2009 之 tstringbuilder 类[5]: chars[] 属性与 copyto 方法
Delphi判断mssql数据库中表格是否存在？ 如何批量创建表格？
Delphi api: setwindowpos改变窗口的位置与状态
更多相关阅读请进入《Delphi》频道 >>
