冬 冬月 Unregistered / Unconfirmed GUEST, unregistred user! 2005-05-10 #1 在一个EDIT中输入任意个数字，用*隔开，BUTTON按了以后在MEMO中输出所有的排列可能， 如输入0*1*2*3*4*5*6，P（7，3）应该是35种排列组合，把这35种排列在MEMO中输出，谢谢
冬 冬月 Unregistered / Unconfirmed GUEST, unregistred user! 2005-05-10 #2 在一个EDIT中输入任意个数字，用*隔开，BUTTON按了以后在MEMO中输出所有的排列可能， 如输入0*1*2*3*4*5*6，P（7，3）应该是35种排列组合，把这35种排列在MEMO中输出，谢谢
X xianguo Unregistered / Unconfirmed GUEST, unregistred user! 2005-05-11 #4 www.hitekersoft.com/download/Combination.rar
冬 冬月 Unregistered / Unconfirmed GUEST, unregistred user! 2005-05-11 #5 xianguo,你的例子很好用，能不能改成是从0开始，而不是1开始
X xianguo Unregistered / Unconfirmed GUEST, unregistred user! 2005-05-11 #6 将a[k] := i;改为 a[k] := i-1;
L lhc4000 Unregistered / Unconfirmed GUEST, unregistred user! 2005-05-11 #7 从0开始，而不是1开始 ................................ Begin If ii = 1 Then s := s + IntToStr(a[ii]-1) Else s := s + IntToStr(a[ii]-1) + ' , '; End; ................................
从0开始，而不是1开始 ................................ Begin If ii = 1 Then s := s + IntToStr(a[ii]-1) Else s := s + IntToStr(a[ii]-1) + ' , '; End; ................................
冬 冬月 Unregistered / Unconfirmed GUEST, unregistred user! 2005-05-15 #8 能不能写成要排列的数字在EDIT中由自己输入，数字之间用*隔开
X xianguo Unregistered / Unconfirmed GUEST, unregistred user! 2005-05-21 #10 http://www.delphibbs.com/keylife/iblog_show.asp?xid=13549
