線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1527
推到 Plurk!
推到 Facebook!

亂數 每次執行都出現一樣!!

答題得分者是:chenyk
wl00132739
一般會員


發表:6
回覆:2
積分:1
註冊:2010-03-12

發送簡訊給我
#1 引用回覆 回覆 發表時間:2010-03-24 01:31:23 IP:118.170.xxx.xxx 訂閱
小弟我最近作了一個幸運777的拉霸
可是每次執行都是會出現1樣的亂數

a:=random(7) 1;

譬如第一次是875 .584.369......n
第二次執行的時候也會照這個順序全部都是一樣的

請問有辦法讓他每次都不一樣嗎?

在此請教各位大大的教導~

chenyk
高階會員


發表:14
回覆:95
積分:171
註冊:2002-07-08

發送簡訊給我
#2 引用回覆 回覆 發表時間:2010-03-24 08:49:56 IP:125.230.xxx.xxx 訂閱
你大概少了 Randomize 這個函數;
我測試的範例:

procedure TForm1.Button1Click(Sender: TObject);
begin
Randomize;
Canvas.TextOut(100, 200, IntToStr(Random(7)));
end;

byby1231
一般會員


發表:0
回覆:3
積分:0
註冊:2009-12-01

發送簡訊給我
#3 引用回覆 回覆 發表時間:2010-04-27 16:54:14 IP:59.125.xxx.xxx 訂閱
試試看改變 RandSeed (種子)
A : integer

RandSeed := random(A);

===================引 用 wl00132739 文 章===================
小弟我最近作了一個幸運777的拉霸
可是每次執行都是會出現1樣的亂數

a:=random(7) 1;

譬如第一次是875 .584.369......n
第二次執行的時候也會照這個順序全部都是一樣的

請問有辦法讓他每次都不一樣嗎?

在此請教各位大大的教導~



系統時間:2024-05-04 0:39:09
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!