Forums before death by AOL, social media and spammers... "We can't have nice things"
|    comp.lang.pascal.borland    |    Borland Pascal was actually pretty neat    |    2,978 messages    |
[   << oldest   |   < older   |   list   |   newer >   |   newest >>   ]
|    Message 2,945 of 2,978    |
|    dik to All    |
|    traperrors    |
|    24 May 21 09:40:46    |
   
   From: quagga5@fastmail.fm   
      
   hi -   
      
   in turbo pascal one traps errors like this:   
      
    {$I-}   
    reset(f);   
    errnum := ioresult;   
    if (errnum <> 0) then HALT(errnum);   
    {$I+}   
      
   in irie pascal (http://irietools.com/) one does   
   this:   
      
    traperrors (false);   
    reset(f);   
    errnum := getlasterror;   
    if (errnum <> 0) then HALT(errnum);   
    traperrors (true) ;   
      
   i am attempting to port irie to turbo. i cannot see   
   how to write a 'traperrors' procedure in turbo   
   pascal.   
      
   i would appreciate any help. thanks.   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)   
|
[   << oldest   |   < older   |   list   |   newer >   |   newest >>   ]
(c) 1994, bbs@darkrealms.ca