zählen mit buchstaben?

[himitsu]

Zitat:

himitsus versteh ich nicht ganz, soviele schleifen

ist doch nur EINE Schleife, die anderen Beiden (1. & 2. Schleife) sind nur zur Kontrolle ob ungültige Zeichen (nicht im Bereich "A" bis "Z") vorhanden sind.

Wenn das etwas mit dem Beitrag "alle Kombinationen 00000000..ZZZZZZZZ in textfile?" zu tun hat, ist das ja sowieso beendet.

Hab den Code nochmal angehängt - mit extra vielen Kommentaren.

Zitat:

ich brauch das ganze nur einmalig für ein prog das mir eine textdatei generiert in der alle Buchstaben kombinationen (4stellen lang) vorhanden sind

Die beiden folgenden Sources machen das Gleiche - Und erstellen das: AAAA, AAAB, AAAC ... ZZZZ

Delphi-Quellcode:

Function StringAddition... {von mir}

Var Datei: TextFile;
  S: String;

S := 'AAAA';
Repeat
  WriteLn(Datei, S);
  S := StringAddition(S, 'A');
Until Length(S) > 4;

Delphi-Quellcode:

Var Datei: TextFile;
  a, b, c, d: Byte;

For a := 65 to 90 do
  For b := 65 to 90 do
    For c := 65 to 90 do
      For d := 65 to 90 do
        WriteLn(Datei, Chr(a) + Chr(b) + Chr(c) + Chr(d));