home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #18 / NN_1992_18.iso / spool / comp / lang / pascal / 4882 < prev    next >
Encoding:
Text File  |  1992-08-16  |  1.4 KB  |  35 lines
  1. Newsgroups: comp.lang.pascal
  2. Path: sparky!uunet!mcsun!sun4nl!rulway.LeidenUniv.nl!rulfc1!jeroenp
  3. From: jeroenp@rulfc1.LeidenUniv.nl (Jeroen W. Pluimers)
  4. Subject: Re: Problems with IOResult (TP.6)
  5. Message-ID: <1992Aug17.102052.10247@rulway.LeidenUniv.nl>
  6. Sender: root@rulway.LeidenUniv.nl (System PRIVILEGED Account)
  7. Nntp-Posting-Host: rulfc1.leidenuniv.nl
  8. Organization: Dept. FMC, Gorlaeus Labs, Leiden University, The Netherlands
  9. References: <h07mcp=.gabriel@netcom.com> <sbarr.1.714023372@nyx.cs.du.edu>
  10. Date: Mon, 17 Aug 92 10:20:52 GMT
  11. Lines: 22
  12.  
  13. In article <sbarr.1.714023372@nyx.cs.du.edu> sbarr@nyx.cs.du.edu (Sam E. Barr) writes:
  14. >
  15. >The other problem arrising from this is that you cannot use a call such as
  16. >
  17. >   if IOResult <> 0 then
  18. >     if IOResult = 8 then ....
  19. >
  20. >because the IOResult is cleared after you read it the first time, and thus 
  21. >will be zero for the next read.
  22. >
  23. Well, it is always possible to use this construction:
  24.  
  25.   if InOutRes <> 0 then
  26.      if IoResult = 8 then { get and clear result }
  27.  
  28. --
  29.     o _   _  _   _   _             voice: +31-2522-20908 (19:00-24:00 UTC)
  30.    / (_' |  (_) (_' | |            snail: P.S.O.
  31. __/                                       attn. Jeroen W. Pluimers
  32.                                           P.O. Box 266
  33. jeroenp@rulfc1.LeidenUniv.nl              2170 AG Sassenheim
  34. jeroen_pluimers@f256.n281.z2.fidonet.org  The Netherlands
  35.