home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / listings / v_01_04 / 1n04040b < prev    next >
Text File  |  1990-07-25  |  201b  |  16 lines
  1.  
  2.  
  3. if not (c in ['0' .. '9']) do
  4.     begin
  5.     code := i;
  6.     exit;
  7.     end;
  8. n := ord(c) - ord('0');
  9. c := next;
  10. while c in ['0' .. '9'] do
  11.     begin
  12.     n := 10 * n + ord(c) - ord('0');
  13.     c := next;
  14.     end;
  15.  
  16.