Ermitteln ob eine file-Variable geöffnet ist

[ichbins]

Hi,

wie der Titel schon sagt, ich will ermitteln ob eine Dateivariable (mit reset oder rewrite) geöffnet ist.

Delphi-Quellcode:

var
  f:file;
begin
  if isopen(f) then
    ...
end;

Da es isopen leider nicht gibt, wollte ich wissen, ob es da einen Befehl gibt?

[marabu]

Delphi-Quellcode:

function IsOpen(f: file): boolean;
begin
  Result := TFileRec(f).Mode <> fmClosed;
end;

Grüße vom marabu

[ichbins]

thanks

[ichbins]

äääh,

Zitat:

Zitat von Delphi

Dateityp hier nicht zulässig

[SirThornberry]

zeig mal deinen sourcecode, bei mir funktioniert das ohne probleme.

[ichbins]

sourcecode = die Funktion die oben steht.

Er markiert die Kopfzeile der Funktion, sowohl in der Interface wie auch in der Implementation, und sagt "Dateityp hier nicht zulässig" Ich denk mal dass er es irgendwie nicht mag, dass ich eine Variable vom Typ FILE reinschreib (d7 pers)

[SirThornberry]

achso, mit der Funktion hab ichs nicht probiert. Abhilfe: Schreib das ganze nicht in eine Funktion sondern direkt an die Stelle wo du es prüfen willst.

oder wenns unbedingt eine funktion sein soll dann so:

Delphi-Quellcode:

function IsOpen(const f: file): boolean;
begin
  Result := TFileRec(f).Mode <> fmClosed;
end;

[ichbins]

ja, jetzt gehts. Danke nochmal :thumb:

[marabu]

Einen hätt' ich noch:

Delphi-Quellcode:

function IsOpen(var f): boolean;
begin
  Result := TFileRec(f).Mode <> fmClosed;
end;

marabu

[ichbins]

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 :?:

[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

[ichbins]

ahja...