home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / network.swg / 0005_ISFILOPN.PAS.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-05-28  |  273 b   |  16 lines
  1. Var
  2.   Fi : File;
  3.  
  4. Function ISOpen(Var Fil:File):Boolean;
  5. (* Returns True is File has is open ON A NETWORK!!! *)
  6. Var
  7.  P:^Byte;
  8. begin
  9.  P:=@Fil;
  10.  If P^=0 then IsOpen:=False else IsOpen:=True;
  11. end;
  12.  
  13. begin
  14.   Assign(Fi,'FileOPEN.PAS');
  15.   Writeln(ISOpen(Fi));
  16. end.