home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #18 / NN_1992_18.iso / spool / comp / lang / pascal / 4867 < prev    next >
Encoding:
Text File  |  1992-08-15  |  870 b   |  26 lines
  1. Newsgroups: comp.lang.pascal
  2. Path: sparky!uunet!cs.utexas.edu!wupost!csus.edu!netcom.com!gabriel
  3. From: gabriel@netcom.com (Gabriel Beccar-Varela)
  4. Subject: Problems with IOResult (TP.6)
  5. Message-ID: <h07mcp=.gabriel@netcom.com>
  6. Date: Sun, 16 Aug 92 00:26:41 GMT
  7. Organization: Netcom - Online Communication Services  (408 241-9760 guest) 
  8. Followup-To:   This Group.  
  9. Lines: 15
  10.  
  11. I have problems with the IOResult function. It gives me a non-zero result
  12. when I know positively that there is no I/O problem (I confirmed this by
  13. running the same code with IOResult commented out). I suspect that my disk
  14. cache is causing the problem. The IOResult function works if I do a dummy
  15. call to it before calling it for real. Like this:
  16.  
  17.          error := IOResult;
  18.          {$I-}
  19.          rewrite(f);
  20.          {$I+}
  21.          if IOResult <> 0 then ...
  22.  
  23. Any suggestions?
  24.  
  25. Thank you.
  26.