Delphi排列组合小程序演示，使用广泛，实现时先定义函数指针： var M,N:Integer; //假设已经输入好了 Used:array[1..9] of Boolean; //1..10哪些数字被使用了或被剔除了 Used2:array[1..9] of Boolean; OutPutNums:array[1..9] of Byte; //真正要输出的数字 Order:array[1..9] of Byte; //Order[i]表示排在第i个输出的为哪个数 WorkType:0..1; //如果为0表示选择数字，1表示剔除数字 ToReachCount:Byte; S