Meinst du nicht $I- ?
ich dachte $I
+ schaltet die delphiseitige Prüfung
an, womit Delphi dann exceptions wirft, wenn es nicht geht.
Aber für Luckies Beispiel ist $I+ richtig, da er dort die delphiinterne Excepetions nutzt und in Try-Except IOResult auswerten würde.
Bei $I- wird keine
Exception geworfen und man muß im "normalen" Programmablauf auf IOResult prüfen, ob die vorherrigen Operationen erfolgreich waren.
ja ja, das waren schon komische Fehlerbehandlungen damals.
Wobei Seek und ReadLn garnicht zusammen funktionieren sollte.
ReadLn ist nur für Textdateien und Seek sollte bei Textdateien nicht funktionieren und einen Fehler auslösen.
(Da sich Borland es gespart hat den internen Textpuffer bei Seek zu behandeln und lieber einen Fehler auslöste)
Also irgendwie ist mir diese ganze U
IrgendwasParse-
Unit etwas suspekt.