Delphi-PRAXiS - Einzelnen Beitrag anzeigen - Delphi Ermitteln ob eine file-Variable geöffnet ist

**marabu**

Delphi-Quellcode:

			function IsOpen(f: file): boolean;

begin

  Result := TFileRec(f).Mode <> fmClosed;

end;

Grüße vom marabu

marabu Registriert seit: 6. Apr 2005 10.109 Beiträge	#2 Re: Ermitteln ob eine file-Variable geöffnet ist 31. Okt 2005, 16:46 markieren Delphi-Quellcode: function IsOpen(f: file): boolean; begin Result := TFileRec(f).Mode <> fmClosed; end; Grüße vom marabu
	Zitat