Kombination der Groß-Klein Buchstaben

[gizzy]

Zitat von DeddyH:

AdMin ist aber auch möglich und das ist ja angeblich doof

Weil dann die Blackliste nicht erreicht hat was sie soll, nämlich alle admin möglichkeiten zu blocken!

Ich hab jetzt das Beispiel von Dax mal abgewandelt. Es waren ein paar Syntax Fehler drin. Sah mir am Anfang stark nach ner Endlosschleife aus, aber jetzt bekomme ich eine Zugriffverletzung für meine Stringlist (fals dies mit TStrings gemeint war).

Delphi-Quellcode:

procedure PermuteCase(const s: string; list: TStringList; startIndex: Integer = 0);
var
temp,charf: 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);
  charf:= uppercase(temp[startIndex]);
  temp[startIndex] := charf[1];
  list.Add(temp);
  PermuteCase(temp, list, startIndex + 1);
end;