Kombination der Groß-Klein Buchstaben

[Dax]

Delphi-Quellcode:

procedure PermuteCase(const s: string; list: TString; startIndex: Integer := 0);
var temp: string;
begin
  if startIndex > length(s) then exit;
  if startIndex = 0 then
  begin
    temp := lowercase(s);
    startIndex := 1;
  end
  else
    temp := s;
  list.Add(temp);
  PermuteCase(temp, list, startIndex + 1);
  temp[startIndex] := upper(temp[startIndex]);
  list.Add(temp);
  PermuteCase(temp, list, startIndex + 1);
end;

Womöglich stimmen nicht alle Aufrufe, aber das Prinzip müsste so richtig umgesetzt sein