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 >
Wrap
Text File
|
1990-07-25
|
201b
|
16 lines
if not (c in ['0' .. '9']) do
begin
code := i;
exit;
end;
n := ord(c) - ord('0');
c := next;
while c in ['0' .. '9'] do
begin
n := 10 * n + ord(c) - ord('0');
c := next;
end;