Write => I/O Error 103

[nahpets]

Hallo,

schau bitte mal zuerst, ob das ReWrite tatsächlich erfolgreich ist.

Delphi-Quellcode:

 
  AssignFile(F, 'C:\datei.txt'); 
{$I-} 
  ReWrite(F); 
{$I+} 
  tmp := ioresult; 
  if tmp = 0 then 
  begin // erfolgreich 
    Showmessage('Erfolgreich! ioresult='+inttostr(tmp)); 
  end
  else
  begin
    Showmessage('nicht Erfolgreich! ioresult='+inttostr(tmp)); 
  end;