Delphi-Quellcode:
var F: TextFile;
begin
if TTextRec(F).Mode <> fmClosed then
aber die Datei muß mindestens einmal vorher mit AssignFile initialisiert worden sein.
Für "File of ..." bietet sich TFileRec(F).Mode an ... dieses TFileRec ist in den ersten Feldern identisch zu TTextRec und es ist quasi egal, was man da nimmt.