home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / listings / v_01_04 / 1n04039b < prev    next >
Text File  |  1990-07-25  |  583b  |  39 lines
  1.  
  2. Listing 3
  3.  
  4. const
  5.     HT = chr(9);
  6.     CR = chr(13);
  7.     SPACES = [' ', HT, CR];
  8.  
  9. function atoi(s : string) : integer;
  10.     var
  11.         i, n : integer;
  12.         neg : boolean;
  13.     begin
  14.     i := 1;
  15.     while (i <= length(s)) and (s[i] in SPACES) do
  16.         inc(i);
  17.     neg := FALSE;
  18.     if i <= length(s) then
  19.         if s[i] = '+' then
  20.             inc(i)
  21.         else if s[i] = '-' then
  22.             begin
  23.             neg := TRUE;
  24.             inc(i);
  25.             end;
  26.     n := 0;
  27.     while (i <= length(s)) and (s[i] in ['0' .. '9']) do
  28.         begin
  29.         n := 10 * n + ord(s[i]) - ord('0');
  30.         inc(i);
  31.         end;
  32.     if neg then
  33.         n := -n;
  34.     atoi := n;
  35.     end;
  36.  
  37. ----------
  38.  
  39.