danke, ich hab mich gerade gefragt, wie ich das mit sämmtlichen file-of-untertypen auch noch unter einen Hut bringen kann.
aber irgendwie kommt da immer true raus?
Delphi-Quellcode:
var
f:file;
begin
try
closefile(f);
except end;
if isopen(f) then showmessage('open') else showmessage('closed');
assignfile(f,'tempfile');
rewrite(f);
if isopen(f) then showmessage('open') else showmessage('closed');
closefile(f);
erase(f);
end;
--> beide open
