Zeichenketten nach Maske generieren

[jan17]

Hawkeye, ich weiss nicht, was ich sagen soll.
Als ich diese Frage gestellt habe, hätte ich niemals gedacht, dass ich es jemals selber schaffe.
Aber deine Beschreibung war so genial einfach, dass ich es gleich beim ersten Versuch geschafft habe.

Delphi-Quellcode:

  procedure a1(const mask:string);
  var s:string;

    procedure a2(n:byte);
    var c,c1,c2:char;
    begin
      if n >= length(mask)+1 then
        listbox1.Items.add(s)
      else
      begin
        case mask[n] of
          'l':
          begin
            c1:='a';
            c2:='z';
          end;
          'u':
          begin
            c1:='A';
            c2:='Z';
          end;
          'd':
          begin
            c1:='0';
            c2:='9';
          end;
        end;
        for c := c1 to c2 do
        begin
          s[n]:=c;
          a2(n+1);
        end;
      end;
    end;

  begin
    setlength(s,length(mask));
    a2(1);
  end;

Wie man sieht, ist noch lange nicht perfekt und es fehlt noch einiges, aber den Rest kriege ich auch noch hin.
Jedenfalls vielen Dank, dass du geantwortet hast!