alle Kombinationen 00000000..ZZZZZZZZ in textfile?

[himitsu]

Delphi-Quellcode:

Const Z: Array[0..11] of Char = ('0', '1', '2',     '7', '8', '9', 
  'A', 'B', 'C',     'X', 'Y', 'Z');

Var s1, s2, s3, s4, s5, s6, s7, s8: Byte;
  D: TextFile;

Begin
  AssignFile(D, 'Datei.txt');
  Rewrite(D);
  For s1 := 0 to High(Z) do  For s2 := 0 to High(Z) do
    For s3 := 0 to High(Z) do  For s4 := 0 to High(Z) do
      For s5 := 0 to High(Z) do  For s6 := 0 to High(Z) do
        For s7 := 0 to High(Z) do  For s8 := 0 to High(Z) do
          WriteLn(D, Z[s1] + Z[s2] + Z[s3] + Z[s4] + Z[s5] + Z[s6] + Z[s7] + Z[s8]);
  CloseFile(D);
End;

Brauchst nur noch das Const-Array (Z) so erweitern, das alle Zeichen vorhanden sind die du benötigst.