小第有一个关于扑克游戏制作的问题？

Question

我做了32个TImage，代表32张牌，又做了2个TImage，现在想实现随机的从32张牌里面抽2张到，那2个TImage里面，如何实现？也就是点一下button1就随机抽出，谢谢大家，分不是问题？

Answer 1

我到有一个例子。你有没有DELPHI开发人员指南啊。那里有一个21点游戏的例子。看看。

Answer 2

你自己想想好行。抽个随机数。randomize;
int=random(X)
不难不难

Answer 3

randomize;
int=random(X)随便输出两变量
再加上一些判断的条件你试一下！

Answer 4

procedure TForm1.FormCreate(Sender: TObject);
begin
image1.Picture.LoadFromFile(1.jpg);
image2.Picture.LoadFromFile(2.jpg);
...
image32.Picture.LoadFromFile(32.jpg);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
x:integer;
begin
randomize;
if random(32)then x:=random(32);
case x of
  1: 
    begin 
      image33.picture.loadfromfile(1.jpg);
       break;
    end 
  2:
    begin 
      image33.picture.loadfromfile(2.jpg);
       break;
    end 
...
32:
   begin 
      image33.picture.loadfromfile(1.jpg);
       break;
    end 
end;end;