已知10个数如何得到从中任选6个的所有组合？ ( 积分: 200 )

已知10个数（10个数从1-100不定），如何得到从中任选6个的所有组合？也就是10*9*8*7*6*5/6/5/4/3/2个结果。

排列组合问题？
把k个数按顺序存在NumArray数组里，取R个数的组合（顺序排列）
function ComData(K:ShortInt;R:shortInt):Boolean;

var
i,j:integer;

begin

for i:=K do
wnto R do

begin

CombArray[R]:=NumArray;

if R>1 then

ComData(i-1,R-1)
else

begin

//输出CombArray数组中的r个数
for j=1 to r do

输出CombArray[j]到文本文件
end;

Result:=true;

end;

自己也可以搜索一下，delphi 排列组合。有很多现成的代码，上面是我从google上搜索的，随便给你贴一个过来了。