IOResult stimmt nach WriteLn nicht!

[Hansa]

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.