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