发扑克牌怎么写程序？谢谢 ，急！！！！！等半个小时 谢谢

Question

发扑克牌怎么写程序？谢谢 ，急！！！！！等半个小时 谢谢

Answer 1

去Delphi俱乐部找个控件，好像叫AvCard，我记不清了，是专门用于扑克牌游戏开发的，很简单，有Demo，一看就明白。我很久以前用过，找不到源码了。

Answer 2

playicq.com去下载一个下面只是一个简单的算法
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;

Answer 3

[email protected] 发出后 告诉一声