扑克牌随机显示

一位数组

void __fastcall TForm6::Button1Click(TObject *Sender)
{
    //扑克牌 13张，随机顺序显示，同一张牌不能重复出现
 int ar[13];
 for (int i = 0; i < 13; i++)
  ar[i] = i + 1;

 Memo1->Clear();
 for (int i = 0; i < 13; i++)
  this->Memo1->Lines->Add(ar[i]);

 Memo1->Lines->Add("随机抽题");
 for (int i = 12; i >= 0; i--)
 {
  // 抽中后和最后置换
  int x = random(i);
  int tmp = ar[x];
  ar[x] = ar[i];
  ar[i] = tmp;
  this->Memo1->Lines->Add(tmp);
 }

}

二位数组

void __fastcall TForm6::Button2Click(TObject *Sender)
{
 int ar[36][2];

 for (int i = 0; i < 36; i++)
 {
  ar[i][0] = String(String(i + 1) + "1").ToInt();
  ar[i][1] = String(String(i + 1) + "2").ToInt();
 }
 Memo1->Clear();
 for (int i = 0; i < 36; i++)
 {
  Memo1->Lines->Add(String(ar[i][0]) + "," + ar[i][1]);
 }
 Memo1->Lines->Add("随机抽题");
 for (int i = 35; i >= 0; i--)
 {
  // 抽中后和最后置换
  int x = random(i);
  int tmp[1][2];

  tmp[0][0] = ar[x][0];
  tmp[0][1] = ar[x][1];

  ar[x][0] = ar[i][0];
  ar[x][1] = ar[i][1];

  ar[i][0] = tmp[0][0];
  ar[i][1] = tmp[0][1];

  Memo1->Lines->Add(String(tmp[0][0]) + "," + tmp[0][1]);
 }

}