Forum: Sonstige Fragen zu Delphi
Delphi
by marabu,
31. Okt 2005
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:
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');
Forum: Sonstige Fragen zu Delphi
Delphi
by marabu,
31. Okt 2005
Einen hätt' ich noch:
function IsOpen(var f): boolean;
begin
Result := TFileRec(f).Mode <> fmClosed;
end;
marabu
Forum: Sonstige Fragen zu Delphi
Delphi
by marabu,
31. Okt 2005
function IsOpen(f: file): boolean;
begin
Result := TFileRec(f).Mode <> fmClosed;
end;
Grüße vom marabu