哪位能给个穷举的算法?比如我有(a,b,c,d)几个数.现在要组成3位的或2位的?
解决方案 »
- 如何在动态库中使用DSPack?
- 关于treeview的趣味问题,怪
- [散尽所有分求解]Dephi操作word问题
- 怎样用程序获取IE浏览器内选择的文字
- 在网络中两台机子是不能直接通讯的就如QQ聊天它必需通过服务器中转,服务器再把信息转发给客户机,请问服务器需要知道客户机的哪些信息才
- 急,关于delphi数据库的操作
- 关于如何把Database1的Table1数据导入Database2的Table2中.
- 请问delphi7的资料现在有哪些比较好的?有地方下载吗?
- 使用ADO如何比较方便地开发程序?
- 寻找琪琪,40star,知情者有重分酬谢!!!GZ,UP者均有分!
- 保存文件到数据库和读取文件至本地
- 关于delphi的数据操作
N: Integer = 7; // 数组长度
M: Integer = 3; // 组合长度var
arySrc: array of Integer;
aryDst: array of Integer;procedure TForm1.QueAay(nIdx: Integer; mIdx: Integer);
var
i: Integer;
str: String;
begin
aryDst[mIdx] := arySrc[nIdx];
if mIdx = M - 1 then
begin
str := '';
for i := 0 to M - 1 do
begin
str := str + IntToStr(aryDst[i]) + ',';
end;
ListBox1.Items.Add(str);
exit;
end; for i := nIdx + 1 to N - 1 do
begin
QueAay(i, mIdx + 1);
end;
end;procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
SetLength(arySrc, N);
SetLength(aryDst, M);
for i := 0 to N - 1 do
begin
arySrc[i] := i;
end; for i := 0 to N - M do
begin
QueAay(i,0);
end;
end;