给一组数字，列出组合/

Question

这个该如何书写呢？如有a,b,c,d几个字符，现要取得他们的所有组合？应如何写呢？a+b
a+c
a+d
b+c
b+d
c+da+b+c
a+b+d
a+c+d
b+c+da+b+c+d

Answer 1

写了一个字母的，没有输出加号，给你参考：// mm is TMemoprocedure TForm1.Button1Click(Sender: TObject);
var
  s: String;  procedure doit(n: Integer; x: String);
  begin
    if n = 1 then
    begin
      if length(x)>1 then mm.Lines.Add(x);
      if x <> '' then mm.lines.Add(s[1]+x);
    end
    else
    begin
      doit(n-1,x);
      doit(n-1,s[n]+x);
    end;
  end;begin
  s := 'abcd';
  doit(4,'');
end;