免费视频淫片aa毛片_日韩高清在线亚洲专区vr_日韩大片免费观看视频播放_亚洲欧美国产精品完整版

delphi利用系統(tǒng)時(shí)間產(chǎn)生隨機(jī)數(shù)的函數(shù)
━━━━━━━━━━━━━━━━━━━━━━━━━━
一個(gè)利用系統(tǒng)時(shí)間產(chǎn)生隨機(jī)數(shù)的程序,比系統(tǒng)的隨機(jī)函數(shù)真實(shí)
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 //通過(guò)隨機(jī)發(fā)生次數(shù)來(lái)控制產(chǎn)生不同的隨機(jī)數(shù)
X := Random(Num);
Result := X;
end;