E/A Fehler 103

[Luckie]

Guck in der Hilfe nach was E/A Fehler 103 ist. Wenn ich mich nicht irre ist das "Datei schon geöffnet" oder "Datei noch nicht geöffnet".

Das passiert dir dann, wenn du die dateivariable global deklarierst und die datei an einer anderen Stelle öffnest, aber nicht wieder schließt.

Eine Fehlerbehandlung wäre auch sinnvoll:

Delphi-Quellcode:

begin 
AssignFile(Datei,'neu01.txt'); 
{$I-}
Reset(Datei); 
{$i+}
if IOResult = 0 then 
begin 
  writeln(Datei,'text1'); 
  writeln(Datei,'text2'); 
  CloseFile(Datei); 
end
else
  ShowMessage(SysErrorMessage(GetLastError));

Dann weißt du was los ist.

Warum wird eigentluich fast immer auf eine konsequente Fehlerbehandlung verzichtet? Damit kann man solche Threads von vorneherein vermeiden.