home *** CD-ROM | disk | FTP | other *** search
/ Resource for Source: C/C++ / Resource for Source - C-C++.iso / codelib1 / v_01_04 / 1n04044a < prev    next >
Encoding:
Text File  |  1995-11-01  |  218 b   |  14 lines
  1.  
  2. n := 0;
  3. while c in ['0' .. '9'] do
  4.     begin
  5.     digit := ord(c) - ord('0');
  6.     if n < (MINLONGINT + digit) div base then
  7.         { overflow action };
  8.     n := 10 * n - digit;
  9.     c := next;
  10.     end;
  11. if not neg then
  12.     n := -n;
  13.  
  14.