Wieder E/A-Fehler...aber ich finde ihn nicht

[turboPASCAL]

Aslo heisst das in Deinem Fall dass das dann so aus sehen sollte:

Delphi-Quellcode:

var
  f: Textfile;
  daten1: array[1..100]  of string;
  s: string;
  i, err: Integer;


function ShowEAErrors(Error: Integer): string;
begin
  case Error of
    100: Result := 'Fehler beim Lesen vom Datenträger';
    101: Result := 'Fehler beim Schreiben auf Datenträger';
    102: Result := 'Dateivariable ist keiner Datei zugewiesen';
    103: Result := 'Datei nicht geöffnet';
    104: Result := 'Datei wurde nicht für Leseoperationen geöffnet';
    105: Result := 'Datei wurde nicht für Schreiboperationen geöffnet';
    106: Result := 'Ungültiges numerisches Format';
    else Result := 'Nicht dokumentierter Fehler';
  end;
end;

procedure So_und_so;
begin
  err := 0; // braucht man eigentlich nich machen
            // da IOresult den Wert setzt...

  AssignFile(f, 'c:\aaa.txt');
  {$I-}
  Append(f);  // Öffne Datei zum anhangen von Text
  {$I+}
  err := IOResult;

  if err <> 0 then // Wenn keine Datei da dann neu erstellen
  begin
    {$I-}
    Rewrite(f);  // Erstelle Datei neu (Schreibrechte)
    {$I+}
    err := IOResult;
  end;

  if err = 0 then  // Keine Fehler ? dann los
  begin

     for i:=1 to 100 do
     begin
       daten1[i] := inttostr(i); //Fülle das Array einfach sinnlos mit einem String
       writeln(f, daten1[i]); // Daten schreiben
     end;

  end else  // Fehler !? Was für einer ?
    ShowMessage(ShowEAErrors(err));

  CloseFile(f); // Datei schliessen
end;

// Edit: PS.: Ist das jetzt ein Tut ?