E/A Fehler 103

[eddy]

Hallo,

hier noch ein Programmstück:

Delphi-Quellcode:

uses
  System;    

    .... 
    {$I-}
    AssignFile(f, lw_path_und_filename);
    Reset(f);  // für Lesen oder Append(f);  // für Anhängen
    if IOResult <> 0 then begin // Fehler beim Öffnen
      Rewrite(f);  // Erzeuge Datei
      if IOResult <> 0 then begin  
        ShowMessage('Datei konnte nicht angelegt werden');
        exit;
      end;
    end;
    Append(f);
    Writeln(f, 'irgendwas');
    Flush(f);  // Sicherstellen, daß der Text tatsächlich in die Datei geschrieben wird.
    CloseFile(f);
    {$I+}
    ....

mfg
eddy

[edit=Christian Seehase]Tags korrgiert. Mfg, Christian Seehase[/edit]