Fehler bei write / writeln in eine Datei

[Sharky]

Hai Christopher,

mal unabhängig von deinem Problem. Was hälst Du denn von diesem Ansatz um deine ganzen IF-Then Abfragen zu verhindern?

Delphi-Quellcode:

procedure DateiUeberschreiben(pfad: string; groesse: integer);
const
  myChars: array[1..15] of Char =
    ('@', 't', 'ö', '+', '~', '*', '#', 'w', 'd', 'b', ' ',
    ']', '3', '|', '2');
var
  i, a : integer;
  zeichen: Char;
begin
  for a := 1 to 10 do
  begin
    Assign(datei, pfad);
    rewrite(datei);
    for i := 1 to groesse do
    begin
      zeichen := myChars[random(15) + 1];
      .
      .
      .