每一次选出的数不重复
procedure TfrmMain.RandomGel6;
var
Int36 array[1..36]of integer;
i,j,Num:integer;
SL:string;
tmp: Integer;
begin
Randomize;
for i:=1 to 36 do
Int36 := i;
Num:=36;
for i := 1 to 7 do
begin
tmp := 1+Random(Num);
SL:=SL+inttostr(Int36[tmp]);
for j:= tmp to Num-1 do
Int36[j]:=Int36[j+1];
dec(Num);//Num:=Num-1;
end;
Memo1.Text := SL.Text;
end;
36个球选出一个后停止,剩下35个球再转,得到第二个球,类推……