xipukew.pas

基于使用Delphi编写源码的扑克牌游戏源码

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.