くだすれDelphi(超初心者用)その51

くだすれDelphi(超初� ..

299:デフォルトの名無しさん
10/02/26 00:08:58
>>290
procedure TForm1.Button1Click(Sender: TObject);
const
　CARD : array [0..5] of string = ('THE FOOL','THE MAGICIAN','THE HIGH PRIESTESS',
　　　　　　　　　　　　　　　　　　　　'THE EMPEROR','THE LOVERS','The HIEROPHANT');
　function tekitou(a,b:integer):TPoint;
　begin
　　result.X := b;
　　result.Y := a;
　end;
var
　CardNum: array [0..5] of Integer;
　i,r1,r2 : integer;
　p : TPoint;
begin
　Memo1.Clear;
　for i := 0 to 5 do
　　CardNum[i] := i;
　for i := 0 to 999 do begin
　　r1 := random(6);
　　r2 := random(6);
　　p := tekitou(CardNum[r1],CardNum[r2]);
　　CardNum[r1] := p.X;
　　CardNum[r2] := p.Y;
　end;
　for i := 0 to 5 do
　　Memo1.Lines.Add(CARD[CardNum[i]]);
end;

駄目な例

次ページ