請問各位 最近寫了一個翻牌的記憶遊戲，可是都會出現一樣的牌

不知道各位有沒有什麼取亂數的好方法

謝謝各位

提示 1：亂數種子
提示 2：洗牌法

------
歡迎參訪 "腦殘賤貓的備忘錄" http://maolaoda.blogspot.com/

你給的亂數種子都是同一個值, 所以出現一樣的數據, 
再明說一點
亂數種子再以亂數取得, 如何產生亂數, 我最常用的方式是用日期時間再給一堆加減乘除算出數字做為種子
===================引 用 lambor 文 章===================
請問各位 最近寫了一個翻牌的記憶遊戲，可是都會出現一樣的牌

不知道各位有沒有什麼取亂數的好方法

謝謝各位

亂數的產生法
[code delphi]
var
Nums,ranarr,統計: array of integer;
i,j,k,l,temp,A,B,C,D: integer;
begin
mmo1.Lines.Clear;
setlength(統計,39); //統計號碼出現數
setlength(ranarr,7); //產生 0~B陣列 0不用
for i := 1 to 38 do begin
統計[i] :=0;
end;

A:=1;
B:=38;
C:=1;
D:=6;
setlength(Nums,B 1); //產生 0~B陣列 0不用
for i := 1 to B do begin
Nums[i] := i; //初始化陣列..照順序排好的
end;

for l := 1 to 20000000 do begin
randomize; ///亂數種子

for i := 1 to B do begin
j := RandomRange(1,(B 1)); //以陣列範圍取亂數,交換裡面的值
k := RandomRange(1,(B 1));
temp := Nums[j]; //交換值
Nums[j] := Nums[k];
Nums[k] := temp;
end;

// randomize; ///亂數種子
for i := 1 to D do begin
ranarr[i] := i; //初始化陣列..照順序排好的
end;
for i := 1 to D do begin
j := RandomRange(1,(D 1)); //以陣列範圍取亂數,交換裡面的值
k := RandomRange(1,(D 1));
temp := ranarr[j]; //交換值
ranarr[j] := ranarr[k];
ranarr[k] := temp;
end;

for i := 1 to 6 do begin
統計[Nums[ranarr[i]]]:= 統計[Nums[ranarr[i]]] 1;
//mmo1.Lines.Add('第' inttostr(i) '號:' IntToStr(Nums[ranarr[i]]));
end;

end;

for I := 1 to 38 do begin
mmo1.Lines.Add('第' inttostr(i) '號:' IntToStr(統計[i]));
end;
[/code]
我的樂透寫法
你參考亂數的部分看看

===================引 用 lambor 文 章===================
請問各位 最近寫了一個翻牌的記憶遊戲，可是都會出現一樣的牌

不知道各位有沒有什麼取亂數的好方法

謝謝各位