Wie diesen Algorithmus automatisieren?

[moritz]

Hi

Ich habe hier einen Algo. geschrieben, der alle möglichen Zeichenketten erzeugt (a,b,c,d,....,aa,ab,ac,ad,ae,...,aaa,aab,aac,....) . Ich habe das array zeichen, das mit a...z, 0..9, "." und "_" gefüllt ist (Insgesamt 41 Inhalte)

Delphi-Quellcode:

    var a,b,c,count,i:Integer;
    add:string;
begin
    for a:=0 to 41 do
    begin
        add:=zeichen[a];
        Memo1.Lines.Add(add);
    end;
    for a:=0 to 41 do
    begin
        for b:=0 to 41 do
        begin
            add:=zeichen[a];
            add:=add+zeichen[b];
            Memo1.Lines.Add(add);
        end;
    end;
    for a:=0 to 41 do
    begin
        for b:=0 to 41 do
        begin
            for c:=0 to 41 do
            begin
                  add:=zeichen[a]+zeichen[b];
                  add:=add+zeichen[c];
                  Memo1.Lines.Add(add);
            end;
        end;
    end;

So, und wie automatisier ich den?