alle Kombinationen 00000000..ZZZZZZZZ in textfile?

[Christian Seehase]

Moin Silent,

ich nehme mal an, dass Du alle Zeichen von 0 bis 9 gefolgt von A bis Z als Zeichen haben willst.
Dann wäre die Textdatei, wenn jede 8 Zeichen lange Kombination als einzelne Zeile gespeichert werden soll (also +#13#10 je Zeile) genau
28.211.099.074.560 Byte > 25 Terabyte. (26273 GB)
Ich vermute mal, dass Du "leichte" Probleme mit der Plattenkapazität bekommst

So könntest Du es machen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

var
  sLine    : string;
  iDigit   : integer;

begin
  fCancel := false;
  sLine   := '00000000';  // Stellenzahl beachten
  Memo1.Lines.Clear;
  while sLine <> 'ZZZZZZZZ' do begin   // Stellenzahl beachten
    if fCancel then exit;
    Memo1.Lines.Add(sLine);
    Application.ProcessMessages;
    iDigit     := 8;   // Stellenzahl beachten
    while iDigit > 0 do begin
      if sLine[iDigit] = '9' then begin
        sLine[iDigit] := 'A';
        break;
      end;
      if sLine[iDigit] = 'Z' then begin
        sLine[iDigit] := '0';
        dec(iDigit);
        if iDigit = 0 then exit;
        continue;
      end;
      if sLine[iDigit] <> 'Z' then begin
        sLine[iDigit] := chr(ord(sLine[iDigit])+1);
        break;
      end;
    end;
    Memo1.Lines.Add(sLine);
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  fCancel := true;
end;

Ich hab' einen Abbruchbutton vorgesehen.
Ausserdem hab' ich mal die Zeilen markiert, die für die Anzahl der Stellen wichtig wären.