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 >
Wrap
Text File
|
1991-11-04
|
542b
|
35 lines
Listing 1
const
HT = chr(9);
CR = chr(13);
SPACES = [' ', HT, CR];
function atoi(s : string) : integer;
var
i, n : integer;
neg : boolean;
begin
i := 1;
while (i <= length(s)) and (s[i] in SPACES) do
inc(i);
neg := FALSE;
if i <= length(s) then
if s[i] = '+' then
inc(i)
else if s[i] = '-' then
begin
neg := TRUE;
inc(i);
end;
n := 0;
while (i <= length(s)) and (s[i] in ['0' .. '9']) do
begin
n := 10 * n + ord(s[i]) - ord('0');
inc(i);
end;
if neg then
n := -n;
atoi := n;
end;