高分求救

Question

谁能提供delphi编的发扑克牌程序源码？

Answer 1

去http://www.tommstudio.com/newclub30/d_components.asp找一个控件，现成的

Answer 2

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;最简单的，如果要好一点去playicq.com看看，那里有全套源码

Answer 3

you QQ,or msn Then tell you