Ziehen mit Zurücklegen aber ohne Reihenfolge

[jaenicke]

Wie wäre es so? (Geht ab Delphi 2005)

Delphi-Quellcode:

procedure TForm164.Button1Click(Sender: TObject);
type
  TMyCharSet = set of Char;

  procedure GetCombinations(const Data: TMyCharSet; Count: Integer;
    Results: TStrings; CurChar: Char; CurPrefix: String = ''; CurPos: Integer = 1);
  var
    Cur: Char;
  begin
    for Cur in Data do
      if Cur >= CurChar then
        if CurPos < Count then
          GetCombinations(Data, Count, Results, Cur, CurPrefix + Cur, CurPos + 1)
        else
          Results.Add(CurPrefix + Cur);
  end;

var
  ResultList: TStringList;
begin
  ResultList := TStringList.Create;
  GetCombinations(['A', 'B', 'C', 'D'], 3, ResultList, 'A');
  ShowMessage(ResultList.Text);
  ResultList.Free;
end;