n个数取其中m个数的组合的遍历代码

最近写个函数，就是组合的遍历。比如，10个数，取3个数的所有组合，都知道，用一个3重循环好、是最简单的。不过要是通用一点的话，n个数，取m个数的所有组合。m个循环就不好写了，循环的深度无法用变量，因此写了一个小循环来做

Delphi 的例子 

 

procedure TfrmCompose.btn1Click(Sender: TObject); var x: array of Integer; i, j, n, m: Integer; k: array of Integer; s: string; jw: Boolean; begin n := StrToInt(edt1.Text); m := StrToInt(edt2.Text); SetLength(x, n); SetLength(k, m); for i := 0 to n - 1 do x[i] := i + 1; for i := 0 to m - 1 do k[i] := i; mmo1.Lines.BeginUpdate; mmo1.Clear; while True do begin //取得组合下标 s := ''; for i := 0 to m - 1 do s := s + Format('%.2d',[x[k[i]]]) + ','; mmo1.Lines.Add(s); //实际应用中应调用相应的函数 jw := True; for i := m - 1 downto 0 do begin if jw then begin k[i] := k[i] + 1; for j := i + 1 to m - 1 do begin k[j] := k[j - 1] + 1; end; jw := k[i] >= n + i - (m - 1); end else Break; end; if jw then Break; end; mmo1.Lines.EndUpdate; end;