在Delphi中怎麽實現排列組合

提供排列、組合功能函數的源代碼（代碼源於網絡）如下：

const

BASIC_NUM?:Array?[0..9]?of?String?=?('0','1','2','3','4','5','6','7','8','9');

//BASIC_OBJ?:Array?[0..4]?of?String?=?('Red',?'Green',?'Blue',?'White',?'Black');

AMOUNT_NUM?:Integer?=?10;

//AMOUNT_OBJ?:Integer?=?5;

PARADE_TYPE?:Integer?=?0;

COMBINE_TYPE?:Integer?=?1;

procedure?Parade(nBase?:Integer;?Var?sList?:TStringList);

var

ssList?:TStringList;

nIdx,?nSidx?:Integer;

begin

ssList?:=?TStringList.Create;

try

if?(nBase?<?1)?then

begin

//do?nothing

end?else

begin

if?(sList.Count?=?0)?then

begin

for?nIdx?:=?0?to?AMOUNT_NUM-1?do

ssList.Add(BASIC_NUM[nIdx]);

end?else

begin

for?nIdx?:=?0?to?AMOUNT_NUM-1?do

for?nSidx?:=?0?to?sList.Count-1?do

ssList.Add(BASIC_NUM[nIdx]+sList.Strings[nSidx]);

end;

Parade(nBase-1,?ssList);

end;

if?ssList.Count?>?0?then

begin

sList.Clear;

sList.Text?:=?ssList.Text;

end;

finally

ssList.Free;

end;

end;

procedure?Combine(nBase?:Integer;?Var?sList?:TStringList);

var

ssList?:TStringList;

nIdx,?nSidx?:Integer;

begin

ssList?:=?TStringList.Create;

try

if?(nBase?<?1)?then

begin

//do?nothing

end?else

begin

if?(sList.Count?=?0)?then

begin

//for?nIdx?:=?0?to?AMOUNT_OBJ-1?do

for?nIdx?:=?0?to?AMOUNT_NUM-1?do

//ssList.Add(BASIC_OBJ[nIdx]);

ssList.Add(BASIC_NUM[nIdx]);

end?else

begin

//for?nIdx?:=?0?to?AMOUNT_OBJ-1?do

for?nIdx?:=?0?to?AMOUNT_NUM-1?do

for?nSidx?:=?0?to?sList.Count-1?do

//if?(Pos(BASIC_OBJ[nIdx],?sList.Strings[nSidx])?=?0)?then

if?(Pos(BASIC_NUM[nIdx],?sList.Strings[nSidx])?=?0)?then

//ssList.Add(BASIC_OBJ[nIdx]+','+sList.Strings[nSidx]);

ssList.Add(BASIC_NUM[nIdx]+sList.Strings[nSidx]);

end;

Combine(nBase-1,?ssList);

end;

if?ssList.Count?>?0?then

begin

sList.Clear;

sList.Text?:=?ssList.Text;

end;

finally

ssList.Free;

end;

end;

上一篇:孩子作業的神器——番茄鐘

下一篇:如何在windows下使用pip安裝