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));