home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #19 / NN_1992_19.iso / spool / comp / lang / pascal / 5137 < prev    next >
Encoding:
Text File  |  1992-08-31  |  1022 b   |  27 lines
  1. Newsgroups: comp.lang.pascal
  2. Path: sparky!uunet!cs.utexas.edu!torn!news.ccs.queensu.ca!slip03.telnet1.QueensU.CA!dmurdoch
  3. From: dmurdoch@mast.queensu.ca (Duncan Murdoch)
  4. Subject: Re: How can I see if a file is open?
  5. Message-ID: <dmurdoch.52.715313959@mast.queensu.ca>
  6. Lines: 15
  7. Sender: news@knot.ccs.queensu.ca (Netnews control)
  8. Organization: Queen's University
  9. References: <al161926.715305119@academ01> <29hn7+#.gabriel@netcom.com>
  10. Date: Tue, 1 Sep 1992 02:19:19 GMT
  11.  
  12. In article <29hn7+#.gabriel@netcom.com> gabriel@netcom.com (Gabriel Beccar-Varela) writes:
  13. >   It is very simple: if your file is a textfile you check as follows:
  14. >
  15. >                if TextRec(myfile).mode <> fmClosed then...
  16. >
  17. >    if your file is typed or untyped you say:
  18. >
  19. >                 if FileRec(myfile).mode <> fmClosed then ...
  20.   typo  ----------------------------^^^^^
  21.  
  22. One warning:  before you've done an assign to myfile, the mode is 
  23. undefined.  It could be fmClosed, fmOpen, or any other value.
  24.  
  25. Duncan Murdoch
  26. dmurdoch@mast.queensu.ca
  27.