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?

[jbg]

Das lässt sich ganz leicht mit einer rekursiven Funktion erledigen.

[moritz]

Ich habs schon versucht. Nur entweder bin ich zu dumm oder zu müde....

[jbg]

Zitat von Onz:

oder zu müde....

Schon am hellen Nachmittag?

Delphi-Quellcode:

procedure MyFunc(Lines: TStrings; const Zeichen: array of Char; const PreZeichen: string = '');
var a: Integer;
begin
  for a := 0 to High(Zeichen) do
    Lines.Add(PreZeichen + Zeichen[a]);
  for a := 0 to High(Zeichen) do
    MyFunc(Lines, Zeichen, PreZeichen + Zeichen[a]);
end;

[moritz]

Und wie wende ich das an, wenn ich immer eines nach dem anderen brauch?

[jbg]

Zitat von Onz:

wenn ich immer eines nach dem anderen brauch?

Wie meinst du das? Die Prozedur wirst du doch wohl mit den passenden Parametern aufrufen können.

[moritz]

Jaja...das schon. Hat sich geklärt....