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;
駄目な例