Luckie, jede I/O-Operation liefert ioresult, also auch writeln.
Error 103 : "Datei nicht für Schreiboperationen geöffnet"
tödlich ist so was :
Delphi-Quellcode:
reset (f);
writeln (ioresult);
immer zwischenspeichern (writeln würde ioresult von sich selber anzeigen, wahrscheinlich 0) ! Z.B. so :
Delphi-Quellcode:
reset (f);
io := ioresult
writeln (io);
Showmessage dürfte es allerdings egal sein. Rest : siehe Luckie. Der $I- Block ist
IMHO auch zu groß.
P.S.: Invasion der roten Kästen ?
Lasse es trotzdem mal so stehen.