delphi 递归实现从m 个集合中 任取一个元素 生成组合

主要思想：

求从n个数组任意选取一个元素的所有组合，对于这个问题，我们在直观上感觉很容易，但是用程序实现时则发现用for循环解决不了问题，因为n是随意的。
在这里，我们用递归的思想，对于数据[1, 3, 4]; [2, 5]; [6, 7];我们可以

1.将1,2,6压入栈中，然后输出栈中所有元素，之后弹出6
2.压入7，输出栈中所有元素，之后弹出7
3.弹出2，压入5，再压入6，然后输出栈中所有元素，之后弹出6
4.压入7，输出栈中所有元素，之后弹出7

以此类推，即可得到所有组合。

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Co