扑克发牌算法.txt

来自「大量Delphi开发资料」· 文本 代码 · 共 18 行

var
  pick : Array [1..52] of Byte;
  i, n,
  temp : Word;

begin
  For i := 1 to 52 do
     pick[i] := i ;

  For i:= 52 downto 2 do
  begin                      
     n := random(i) + 1 ;
     temp := pick[n] ;
     pick[n] := pick[i] ;
     pick[i] := temp ;
  end ;
end;