学步园

 每一次选出的数不重复

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个球再转，得到第二个球，类推……