?? 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.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -