Ermitteln ob eine file-Variable geöffnet ist

[marabu]

Die Variable Mode ist erst nach Ausführung von AssignFile() mit fmClosed initialisiert, vorher ist der Inhalt nicht definiert. Das hier kann dich vielleicht mehr überzeugen:

Delphi-Quellcode:

var
  f: file;
begin
  assignfile(f, 'tempfile');
  if isopen(f) then showmessage('open') else showmessage('closed');
  rewrite(f);
  if isopen(f) then showmessage('open') else showmessage('closed');
  closefile(f);
  if isopen(f) then showmessage('open') else showmessage('closed');
  erase(f);
end;

marabu