Есть код, который перебирает все возможные комбинации элементов строки и выводит их в List.Box
:
procedure TForm1.Button1Click(Sender: TObject);
var
m: integer;
procedure GenStr(S0, S1: string);
var
i: integer;
begin
if Length(S0) = m then
ListBox1.Items.Add(S0)
else
for i := 1 to Length(S1) do
GenStr(S0+S1[i], copy(S1,1,i-1) + copy(S1,i+1,Length(S1)));
end;
begin
m := 3;
GenStr('','123');
end;
end.
После выполнения получаю результат: 123
, 132
, 213
, 231
, 312
, 321
, который, касательно выполнения моей задачи, является верным.
Но моя задача состоит в том,чтобы найти такие комбинации в элементах массива, а не в строке. Т.е., например выполнение:
a[0]:=1;
a[1]:=2;
a[2]:=3;
GenStr('',a[0],a[1],a[2]);
дало бы мне такой же результат. Как это можно реализовать?