德尔福组合算法

Question

你好我不能写组合算法。例如;我有1个红色和2个白球，我想写数字红球+数字白球。如下所示;

R->Red
W->White

RWW
WRW  
WWR 

我总共有3个组合。但是我怎么能用Delpi写呢？因为，我可能有10个RED 8 White或15 RED 20 White等。我怎么能进行这个组合。

我有一条规则。

1-我必须使用所有球eveytime。我的订单，组合长度必须是总球。在我的例子中，它必须是2 + 1 = 3.

我该怎么做？

Answer 1

Memo.Lines.Clear
Combination( '', RCount.Value, WCount.Value, Memo.Lines );

例如，如果你的主程序中有一个名为Memo的TMemo，一个名为RCount的spinedit和一个名为WCount的spined，那么你可以在你的动作按钮上执行

{{1}}