求n个字符中k个字符的任意组合。

[fantasywxx]

任意字符串的组合问题。如：字符串abcdef，求包含三个字符的字符串有多少种，是什么？结果应该是20种，abc，abd，abe，abfbcd，cde等等。

[飞天揽月]

up

[飞天揽月]

数学函数自己编

[dakk]

6*5*4+6*5*4*3+6*5*4*3*2+6*5*4*3*2*1＝120+360+720+720＝1920种

[busisoft]

排列组合问题，算法自己写吧！

[zswangII]

function Combination(mStrings: TStrings; mStr: string;
mLen: Integer): Boolean; { 组合 }
procedure fCombination(mLeft, mRight: string);
var
I: Integer;
begin
if Length(mLeft) >= mLen then
mStrings.Add(mLeft)
else for I := 1 to Length(mRight) do
fCombination(mLeft + Copy(mRight, I, 1), Copy(mRight, I + 1, MaxInt));
end;
begin
Result := False;
if not Assigned(mStrings) then Exit;
mStrings.BeginUpdate;
try
mStrings.Clear;
fCombination('', mStr);
finally
mStrings.EndUpdate;
end;
Result := True;
end; { Combination }

procedure TForm1.FormCreate(Sender: TObject);
begin
Combination(Memo1.Lines, 'abcdef', 3);
end;

[yat5460]

Cm取n大学数学里有啊就是m*(m-1)*(m-2)*(m-n)/1*2*...N

[fsybaby]

真有意思，还用给100分？

m中取n个数的组合：m*(m-1)*(m-2)*(m-3)*...*(m-n+1)/1*2*3*...*n

例如：35选7彩票：35*34*33*32*31*30*29/1*2*3*4*5*6*7 === 大约680万
如果不忽略顺序：m*(m-1)*(m-2)*...*(m-n+1)

[fantasywxx]

谢谢zswangII，接受答案，放分给你喽。
不过还是要告诉另外几位高手，组合的计算俺也会，呵呵。