www.pudn.com > 扑克牌游戏源码PlayingCard.rar > xipukew.pas

unit xipukew; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
  StdCtrls, ExtCtrls; 
 
type 
  TForm1 = class(TForm) 
    Button1: TButton; 
    Image1: TImage; 
    Image2: TImage; 
    Image3: TImage; 
    Image4: TImage; 
    Image5: TImage; 
    Image6: TImage; 
    Image7: TImage; 
    Image8: TImage; 
    Image9: TImage; 
    Image10: TImage; 
    Image11: TImage; 
    Image12: TImage; 
    Image13: TImage; 
    Image14: TImage; 
    Image15: TImage; 
    procedure FormCreate(Sender: TObject); 
    procedure Button1Click(Sender: TObject); 
  published 
 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 
 
var 
  Form1: TForm1; 
  PukeSet:array[0..51] of String; 
  PuKeStr:String; 
implementation 
 
{$R *.DFM} 
 
procedure TForm1.FormCreate(Sender: TObject); 
var 
 i,j:integer; 
 PukeColor:array[0..3] of String; 
begin 
  PukeColor[0]:='B'; 
  PukeColor[1]:='R'; 
  PUkeColor[2]:='H'; 
  PuKeColor[3]:='P'; 
 // Setlength(PukeSet1,52); 
  for i:=0 to 12 do 
  begin 
     for j:=0 to 3 do 
     begin 
      PukeSet[i*4+j]:=PukeColor[j]+IntToStr(i+1); 
     end; 
  end; 
 
 
end; 
 
procedure TForm1.Button1Click(Sender: TObject); 
var i,oldval,newval:integer; 
   s,Temp:String; 
begin 
    Randomize; 
    for i:=1 to 100 do 
    begin 
    oldval:=StrToint(FloatToStr(Random(52))); 
    newVal:=StrToint(FloatToStr(Random(52))); 
    Temp:=PuKeset[oldVal]; 
    PukeSet[OldVal]:=PuKeSet[NewVal]; 
    PukeSet[NewVal]:=Temp; 
    end; 
    s:=''; 
    for i:=0 to 51 do 
    begin 
      if (i+1) mod 13 = 0  then 
       S:=S+PuKeSet[i]+#13#10 
       else 
       s:=s+PukeSet[i]+','; 
    end; 
    showmessage(s); 
end; 
 
end.