一个组合问题(29选7)

  在delphi   中   new   ->   other   ->   Console   Application:  
   
  program   Project1;  
   
  {$APPTYPE   CONSOLE}  

procedure   zhuhe(n,k:integer;str:string;memo:Tmemo);
  var  
      i:integer;  
  begin  
      if   n   =   k   then  
      begin  
          for   i:=n   downto   1   do  
              str   :=   inttostr(i)   +   ','   +   str;
           writeln(str);
             memo.Lines.Add(str);
          exit;
      end;  
      if   k   =   1   then  
      begin  
          for   i:=1   to   n   do  
              writeln(inttostr(i)   +   ','   +   str);
              memo.Lines.Add(str);
          exit;  
      end;
      zhuhe(n-1,k,str,memo);
      zhuhe(n-1,k-1,inttostr(n)   +   ','   +str,memo);
  end;  
   

procedure TForm1.Button1Click(Sender: TObject);
  begin  
      zhuhe(10,7,'',memo1);
      readln;
  end;